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HUNOJIL  OBJICTIVBS 

This  manual  describes  tha  elaments  of  PDP-11  FORTRAN  IV  and  ia 
dasignad  as  a  rafaranca,  rathar  than  tutorial,  documant. 

This  docuflwnt  sarvaa  as  tha  FORTRAN  lang.jaqa  rafaranca  manual  for 
aavaral  operating  systams  that  run  on  tha  POP-11  family  of  computers. 
Therefore,  no  information  apecific  to  an  operating  aystem  is  presented 
here.  For  that  information,  refer  to  the  user's  guide  for  each 
aystem. 


imSDID  AODIiaCI 

Because  this  is   a   reference  document,   readers   who  have  a   baaic 
understanding  of  FORTRAN  will  derive  maximum  benefit. 


STtOCTOKI  or  THIS  OOCUHEirr 

Thia  manual  containa  nine  chapters  and  two  appendixes. 

e  Chapter  1  conaists  of  general  information  concerning  FORTRAN 
and  introduces  baaic  facta  needed  for  writing  FORTRAN 
programa. 


•  Chapter  2  deacribee  the  components  of  FORTRAN  statementa,  such 
as  symbolic  namea,  conatants,  and  variablea. 

•  Chapter  3  deacribes  assignment  statements,  which  define  values 
uaed  in  tha  program. 

•  Chapter  4  deals  with  control  statements,  which  tranafer 
control  from  ono  point  in  the  program  to  another. 

•  Chapter  5  describes  specification  state«4»nts,  which  define  the 
characteristics  of  symbols  uaed  in  tha  program,  auch  aa  data 
type  and  array  dimenaiona. 

•  Chapter  6  discusses  subprograms,  both  user-written  and  those 
supplied  with  PDP-ll  FORTRAN  IV. 

•  Chapter  7  covers  FORTRAN  input ^output . 

•  Chapter  0  describea  tha  FORMAT  statements  used  in  conjunction 
with  formattad  I/O  statements. 


•  Chapter  9  contains  information  on   auiiliary   I/O  stateai9nts, 
ruch  as  OPBN,  CLOSE,  and  DBF I HE  PI LB. 

•  Appendix  k   suMsariias  the  character  sets  supported   by   PDP-ll 
FORTRAN  IV. 


e   Appendix  B  suaaiarixes  the  language  eleawn*-s  of  POP-11   FORTRAN 
IV. 


A880CIATS  DOCUHBirrS 

The   following  docuMcnts   are  of   interest   to   POP-II   FORTRAN    IV 
prograsMers: 

•   BT-II/RSTS/E  FORTRAN  IV  User's  Guide 

e   RSX,  VAX /VMS  FORTRAN  IV  User's  Guide 

COWBNTIOMS  08BD  IN  THIS  OOCUNBHT 

The  following  conventions  are  used  in  this  Manual: 

e  Uppercase  words  and  letters  used  in  exaaples  indicate  that  you 
should  type  the  words  and  letters  as  shown. 

e   Lowercase  words  and  letters  used  m  exaaples  indicate  that  you 
are  to  substitute  a  word  or  value  of  your  choice. 

e   Brackets  ((|)  enclose  optional  eleiaents. 

e   Braces  (())  enclose  lists  frosi  which   one  elenent   is   to  be 
chosen . 

e   Ellipses  (...)  indicate  that   the  preceding   ite«{s)   can  be 
repeated  one  or  more  tines. 

In  addition,   the   following   characters   denoLe   special   nonprinting 
characters: 


Tab  cl  racter 


"« 


Space  character   A 


CHAPTER  1 
IHTRODOCTIOa  TO   PDP-11  FORTRAN  IV 


1.1   LANGOAGB  OVBRVIBW 

The  POP-11  FORTRAN  IV  language  is  based  on  American  National  Standard 
(ANS)  FORTRAN  X3. 9-1966  but  includes  the  following  enhancements  to  ANS 
FORTRAN : 

•  You  can  use  any  arithmetic  expression  as  an  array  subscript. 
If  the  expression  is  not  an  integer  type,  it  is  converted  to 
integer  type. 

•  Mixed-mode  expressions  can  contain  elements  of  any  data  type. 
e   The  following  data  type  has  been  added: 

L0GICAL*1 

•  The  IMPLICIT  statement  redefines  the  implied  data  typ«»  of 
symbolic  names. 


The  following  input/output  (I/O)  statements  have  been  added: 

Device-oriented  I/O 


ACCEPT 

TYPE 

PRINT 


READ   (u'r) 
WRITE  (u'r 
FIND   (u'r) 

0P2N 
etc. IE 
DEFINE  PILE 

ENCODE 
DECODE 


Unformatted  direct-access  I/O 


File  control  a.. J  attribute 
specification 

Formatted  data  conversion 
in  memory 


The  specifications  BND»s  and/or  ERR«s  can  be  included  in   READ 

or   WRITE   statements   in   order   to  transfer   control  to  the 

statement   specified  by   s  when   an  end-of-file  or    error 
condition  occurs. 


Alphanumeric   literals   (strings   of   characters   bounded 
apostrophes)  can  be  used  in  place  of  Hollerith  constants. 


by 


•   List-directed  1/0  can  be  used  to  perform  formatted  I/O  without 
a  format  specification. 

e   Constants  and  expressions  are  permitted  in  the   I/O   lists   of 
WRITE,  REWRITE,  TYPE,  and  PRINT  statements. 
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The  DO  statement   increment  parameter  can  have  a  negative 
value. 

For  readability,  you  can  optionally  use  a  comma  following  the 
label  in  a  DO  statement. 


e  A  PROGRAM  statement  can  be  used  in  a  main  program. 

e  You  can  include  an  explanatory  comment  on  the  same  line  as  any 
FORTRAN  statement.  These  comments  begin  with  an  exclamation 
point  ( I) . 

e  You  can  include  debugging  statements  in  a  program  by  placing 
the  letter  D  in  column  1.  These  statements  are  compiled  only 
when  you  specify  a  compiler  command  qualifier;  otherwise, 
they  are  treated  as  comments. 


The  statement  label  list  in  an  assigned 
optional. 


GO  TO  statement  is 


e  You  can  use  ^ny  arithmetic  expression  as  the  control  parameter 
in  the  comp^ced  GO  TO  statement. 

e  Virtual  arrays  provide  large  data  areas  outside  of   normal 
program  address  space. 

PDP-11  FORTRAN  IV  is  simply  referred  to  as  FORTRAN  throughout  the  rest 
of  this  manual. 


1.2   BLBIBNTS  OP  FORTRAN  PROGRAMS 

FORTRAN  programs  consist  of  FORTRAN  statements  and  optional  comments. 
The  statements  are  organized  into  program  units.  A  program  unit  is  a 
sequence  of  statements  that  defines  a  computing  procedure  and  is 
terminated  by  an  END  statement.  A  program  unit  can  be  either  a  main 
program  or  a  subprogram.  An  executable  program  consists  of  one  main 
program  and  one  or  more  optional  subprograms. 


1.2.1  8tat«3ents 

Statements  are  grouped  into  two  general  classes:  executable  and 
nonexecuteble.  Executable  statements  specify  the  actions  of  a 
program.  Nonexecutable  statements  describe  data  arrangement  and 
characteristics,  and  provide  editing  and  data-conversion  information. 

Statements  are  divided  into  physical  sections  called  lines.  A  line  is 
a  string  of  up  to  80  characters.  If  a  statement  is  too  long  to  fit  on 
one  line,  you  can  continue  it  on  one  or  more  additional  lines,  called 
continuation  lines.  A  continuation  line  is  identified  by  a 
c<  itinuation  character  in  the  sixth  column  of  that  line.  (For  further 
information  on  continuation  characters,  see  Section  1.3.4.) 

You  can  identify  a  statement  with  a  label  so  that  ot^.4r  statements  can 
transfer  control  to  it  or  obtain  the  information  it  contains.  A 
statement  label  is  an  integer  number  placed  in  the  first  five  columns 
of  a  statement's  initial  line. 
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1.2.2      C< 


mts 


Commenta  do  not  affect  program  processing  in  any  way.  They  are  merely 
a  documentation  aid  to  the  programmer.  You  can  use  them  freely  to 
describe  the  actions  of  the  program,  to  identify  program  sections  and 
processes,  and  to  provide  greater  ease  in  reading  the  source  program 
listing.  The  letter  C  in  the  first  column  of  a  source  line  identifies 
that  line  as  a  comment.  In  addition,  if  you  place  an  exclamation 
point  (I)  in  the  statement  portion  of  a  source  line,  the  rest  of  that 
line  is  treated  as  a  comment. 

Any  printable  character  can  appear  in  a  comment. 


• 


1.2.3  FORTRAN  Character  Set 

The  FORTRAN  character  set  consists  of: 

1.  All  uppercase  and  lowercase  letters  (A  through  Z,   a   through 

2.  The  numerals  0  through  9 

3.  The  special  characters  listed  below: 


Character 

A  or  ^ 


* 

/ 
( 
) 
# 

t 

■ 

I 

I 
t 


Name 
Space  or  tab 
Equal  sign 
Plus  sign 
Minus  sign 
Asterisk 
Slash 

Left  parenthesis 
Right  parenthesis 
Comma 
Period 
Apostrophe 
Quotation  mark 
Dollar  sign 
Exclamation  point 
Colon 


Other  printable  ASCII  characters  can  appear  in  a  FORTRAN  statement 
only  as  a  part  of  a  Hollerith  constant  or  alphanumeric  literal  (see 
Appendix  A  for  a  list  of  printable  characters). 

Except  in  Hollerith  constants  and  alphanumeric  literals,  the  compiler 
makes  no  distinction  between  uppercase  and  lowercase  letters. 
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1.3   FORMATTIHG  A  FORTRAN  LINE 

Each  FORTRAN  line  has  the  following  four  fields: 
•  Statement  label  field 


•  Continuation  indicator  field 

•  Statement  field 

•  Sequence  number  field 

You  can  format  a  FORTRAN  line  in  two  ways:  1)  by  typing  one  character 
per  column  (character-per-column)  or  2)  by  using  the  tab  character 
(tab-character)  to  get  from  field  to  field.  You  can  use 
character-pe>  ~olumn  formatting  when  punching  cards,  writing  on  a 
coding  form,  v.  typing  on  a  terminal  keyboard.  However,  you  can  use 
tab-character  formatting,  in  addition  to  character-per-column 
formatting,  only  when  you  are  typing  at  a  terminal  keyboard. 


1.3.1  Character-per-column  Formatting 

As  shown  in  Figure  1-1,  a  FORTRAN  line  is  divided  into  fields  for 
statement  labels,  continuation  indicators,  statement  text,  and 
sequence  numbers.  Sections  1.3.3  through  1.3.6  describe  the  use  of 
each  field. 


Each  column  represents  a  single  character.   The  columns  making  up  each 
field  follow. 


FORTRAN 


m 


UUL. 


>0*ni*N  STATIMlNT 


'  •  •  «><     i>|i«itt.<»iti«MI>)ltl»>«>.l»MI»»MIIIMMIII»aa»«*«'«>«IM«t..a'a«..MI>ll»II.IIM»rMI»M.*.»«»««M<..MM^«B^n  ^ !>>*«> 


Hft.'J.  .I.-.'.'. 


2.^^, 


.'..'AJfl. 


— ♦    •»■♦♦•    ♦♦♦♦♦♦^4»    •    »♦♦♦»■ 


*■♦■■»■■■ 


r.Yri.  ,'jj...j. 


LQWJimL,^, 


PqiK^T    IM.  XL  ri,ms. 


LXKL 


f     IJ     LI.^OIT     lflQ»T     (I  1)>     QO  TO    « 


i.i«><i«.»i. 


^*-*  ^-»  **■**-»*■*-*■  *^    *«■»«»♦■»■ 


>  •  •  ••■  mi  •<%<»<><»— m»'nttm»t»>'ttmmf>r»—mmfUm»''Mtm—tfnttfmfUumumvmmmm»Mt—ttm»m 


I  »  I  I  >  ■  ■ 


•^•M*Vt««     .     «•««••«••     WAaSACMUSaTT* 


lUtM-U 


ri^ur*   1-1 t      FORTRAN  Coding   Form 


1-4 


INTRODUCTION  TO   PDP-11  FORTRAN  IV 


Field 

Statement  label 
Continuation  indicator 
Statement 
Sequence  number 


ColuBin(s) 

1  through  5 

6 

7  through  72 

73  through  80 


To  get  from  one  field  to  another,  type  each  space  individually.  For 
example,  in  Figure  1-1,  enter  the  first  line,  type  C,  press  the  space 
bar  five  times,  and  begin  typing  the  comment. 


1.3.2  Tab-Character  Formatting 

You  can  press  the  tab  character  to  move  to  the  continuation  indicator 
field  or  the  statement  field.  You  cannot  move  to  the  sequence  number 
field,  however,  by  pressing  the  tab.  Figure  1-2  compares  keystrokes 
in  lines  using  tab-character  formatting  and  in  those  using 
character-per-column  formatting. 


FomMt  Uiinfl  TAB  CharacMr 


CharMtar-par-Colufim  FomMt 


Cdii  FIRST  VALUE 
10(!^  I   =  J  ^   6*K  > 
OS  1   L>M 
<!a  IVAL  =  1+2 


1 

2  3  4  5 

6 

/  "5  9  10 

11  12  13  14  IB 

16  17  18  19  20| 

c 

F 

1 

R 

S 

T 

V 

A 

L 

U 

E 

1 

0 

1 

=^ 

J 

+ 

5 

• 

K 

•f 

1 

L 

• 

M 

1 

V 

A 

L 

= 

1 

♦ 

2 

_J 

— 

ZK-«14-«3 


Figure  1-2:   Line  Formatting  Example 


The  statement  label  field  consists  of  the  characters  that  you  type 
before  the  first  tab  character.  The  statement  label  field  cannot  have 
more  than  five  characters. 

After  you  type  the  first  tab  character,  you  can  type  either  the 
continuation  indicator  field  or  the  statement  field. 

To  enter  the  con^-inuation  indicator  field,  type  any  digit.  The 
statement  fielr'  then  consists  of  all  the  characters  aftei  the  digit  to 
the  end  of  the  .ine. 

To  enter  the  statement  field  \nthout  a  continuation  indicator  field, 
type  the  statement  immediately  after  the  first  tab.  Note  that  no 
FORTRAN  statement  starts  with  a  digit. 
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Many  text  editors  and  terminals  advance  the  terminal  print  carriage  to 
a  predefined  print  position  when  you  type  the  TAB  key.  However,  this 
action  is  not  related  to  the  FORTRAN  compiler's  interpretation  of  the 
tab  character  described  above. 


You  can  use  the  tab  character  to  improve  the  legibility  of  a  FORTRAN 
statement.  For  compilation,  spaces  are  ignored,  except  those  within  a 
Hollerith  constant  or  alphanumeric  literal.  For  legibility,  spaces 
are  printed  in  the  source  listing.  Tabs  also  are  ignored  for 
compilation  purposes  in  a  statement  fielc!.  In  the  source  listing,  the 
tab  causes  the  character  that  follows  to  be  printed  at  the  next  tab 
stop  (located  at  columns  9,  17,  25,  33,  and  so  forth) 


1.3.3   Stat 


nt  Label  Field 


A  Statement  label  or  statement  number  consists  of  one  to  five  decimal 
digits  ir  the  statement  label  field  of  a  statement's  initial  line. 
Spaces  and  leading  Os  are  ignored.  An  all-sero  statenent  label  is 
invalid. 


Any  statement  referenced  by  another  statement  must  hava  a   label, 
two  statements  within  a  program  unit  can  have  the  same  label. 


No 


You  can  use  two  special  indicators  in  the  first  column  of  the  label 
field:  the  conment  indicator  and  the  debugging  statement  indicator. 
These  indicators  are  described  in  Sections  1.3.3.1  and  1.3.3.2  below. 

The  statement  label  field  of  a  continuation  line  must  be  blank. 


1.3.3.1  CoaiMnt  Indicator  -  The  letter  C  in  column  1  indicates  that 
the  line  is  a  comment.  The  compiler  prints  that  line  in  the  source 
program  listing  and  then  ignores  the  line. 


1.3.3.2   Debugging  Statem 

designates   a   debugging 
statement  can  have  a  stati 
laoel    field.     If    a 


con*:  inuatior. 
indicator  in 


line  must 
CO  I umn  6  . 


int  Indicetor  -  The   letter   0   in   coluain   1 

statement.    The  first  line  of  the  debugging 

went  lab«l  in  the  reaiaininq  columns  of   the 

debugging   statement   la   continued,   every 


have 


in 


column   I   and   a   continuation 


The  compiler  command  specifies  whether  debugging  statements  are  to  be 
compiled.  If  you  specify  debug- statement  compilation,  debugging 
statements  are  compiled  as  a  part  of  the  source  program;  if  you  do 
not  specify  debug-statement  compilation,  debugging  statements  are 
treated  as  comments.  For  a  description  of  compilation  commands,  r^fer 
to  the  appropriate  user's  guide. 


1.3.4  Continuation  Field 


A  continuation  indicator  is  any  character,  except  0  or  space,  in 
column  6  of  a  FORTRAN  line  or  any  digit,  except  0,  after  the  first 
tab.  A  statement  can  be  divided  into  continuation  lines  at  any  point. 
The  compiler  considers  the  characters  after  the  continuation  character 
to  follow  the  last  character  of  the  previous  line,  as  if  no  break 
occurred  at  that  point.  If  a  continuation  indicator  is  0,  then  the 
compiler  considers  the  line  to  be  the  first  line  of  a  FORTRAN 
statement. 
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C( 
■  tat4 


nt  lines  cannot 


mt'a 


initial 


b«  continued, 
line  and   its 


but   they   can  occur 
continuation   line(s) 


between   a 
or  bet%#een 


successive  continuation  lines. 


1.3.S  StateiMnt  Field 

The  text  of  a  FORTRAN  stateaient  is 
Because   the  coaipiler  ignores  the 
Hollerith  constants  or  alphanuoMric 
in   any  way  desired   for  siaxiHuai 
spacing  is  discussed  in  Section  1*3.2 


placed   in   the  statesMOt   field. 

:ab  character  and  spaces  (except  in 

lit  rals) ,  you  can  space  the   text 

legibility.    The  use  of  tabs  for 


NOTE 

If  a  line  extends  beyond  character 
position  72,  the  text  following  position 
72  is  ignored  and  no  warning  nessage  is 
printed. 


1.3.6   Sequence  Huad>er  Field 

h  sequence  nu«ber  or  other  identifying  information  can  appear  in 
coluains  73  through  80  of  any  line  in  a  FORTRAN  program.  The  compiler 
ignores  characters  in  this  field.  Remember  that  you  cannot  move  to 
the  seouence  number  field  by  tab-character  formatting. 


1.4   PROGRAM  UNIT  8TR0CT0RR 

Figure  1-3  shows  the  allowed  order  of  statements  in  a  FORTRAN  program 
unit.  In  this  figure,  vertical  lines  separate  statement  types  that 
can  be  interspersed.  For  example,  comment  lines,  FORMAT  statements, 
DATA  statements,  and  executable  statements  are  allowed  alternatives  in 
the  body  of  the  program.  Horixontal  lines  indicate  statement  types 
that  cannot  be  interspersed.  For  example,  IMPLICIT  statements  cannot 
be  interspersed  with  executable  statements,  a  PROGRAM  statement,  or  an 
END  statement  because  each  has  a  definite  order  in  the  program. 


MtOOMAM  rUNCTlOM  SUanOUTiNC    w  SlOCll  DATA  SMMm^U 

rOWMAT 

fNTdV 

MMPllCiT 

PAMAMCTCD 

DATA 

Oa*MMiOn« 

- 

SlAW^ft* 

ENOk'M* 

Fifure  1-3:   Required  Order  of  Stateawnts  and  Lines 
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The  basic  components  of  FORTRAN  statements  are: 

e  Constants  —  fixed  values,  such  as  numbers.   They 
changed  by  program  statements. 


cannot  be 


Variables  —  symbolic  names  that  represent  stored  values.  The 
stored  values  can  be  changed  by  program  statements. 

Arrays  —  groups  of  values  that  are  ^ored  contiguously  and 
can  be  referenced  individually  by  a  symbolic  name  with  a 
subscript  or  collectively  by  just  a  symbolic  name.  Individual 
values  are  called  array  elements. 

Function  references  —  names  of  functions,  optionally  followed 
by  lists  of  arguments.  A  function  is  a  program  unit  that 
performs  a  specified  computation  using  the  arguments,  if  any: 
for  example,  computing  the  trigonometric  sine  of  the  argument. 
The  resulting  value  is  used  in  place  of  the  function 
reference. 


Expressions  —  constants,  variables,  array  elements, 
references   or   combinations   of   these   components 
conjunction  with  operators.    An   operator    is   a 
specifying    that   a   certain   kind   of   operation, 
multiplication,  is  to  be  performed  to  obtain  a  single 


function 
used  i  n 
symbol 
such  as 
result. 


Variables,  arrays,  and  functions  have  symbolic  names.   A  symbolic  name 
is  a  string  of  characters  that  identify  entities  in  the  program. 

Constants,  variables,  arrays,  expressions,  and  functions  can  have   the 
following  data  types: 

e  Logical 

•  Integer 
e  Real 

e  Double  precision 

•  Complex 


The  following  sections  detail  the  basic 
the  exception  of  function  references, 
C.    Sections   2.1   and   2.2 


components   of   FORTRAN,   with 
which  are  described  in  Chapter 

...   jymbolic   names   and    data    types, 

respectively,  provide  information  comtnon  to  all  basic  components. 


on 
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2.1   SYMBOLIC  NAMBS 

Symbolic  naaiea  identify  entitiea  within  a  FORTRAN  program  unit.   7heae       ^B 
entitiea  are  liated   in  Table  2-1.   The  "Typed"  column  indicatea       ^^ 
whether  the  entity  haa  a  data  type,  auch   aa   real,   integer,   and   ao 
forth.   Data  typea  are  diacusaed  in  Section  2.2. 

Table  2-1:   Bntities  Identified  by  Symbolic  Hamea 

Bntity                Typed 

Variablea                        yea 

Arraya                           yea 

Statement  functiona               yea 

Proceaaor-def ined  functiona        yea 

Function  aubprograma              yea 

Subroutine  aubprograma             no 

Common  blocka                     no 

Main  programa                     no                        ^^ 

Block  data  aubprograma             no                       ^^^ 

Dummy  argumenta                   yea                       ^^^ 

A  aysUBolic  name  ia  a  atring  of  lettera  and  digita  totaling   a  maximum 
of  aix  charactera.   The  firat  character  muat  be  a  letter. 

Bxamplea  of  valid  and  invalid  ayrabolic  namea  are: 

Valid         Invalid/Bxplanation                                  ^^ 

NUMBER         SO           (begina  with  a  numeral) 

K9             B.4          (containa  a  apecial  character) 

Symbolic  namea  muat  be  unique  within  a  program  unit.    That   ia,   you 
cannot   uae  the  aame  aymbolic  name  to  identify  two  or  more  entities  in 
the  aame  program  unit. 

In  executable  programa  conaiating  of  two  or  more  program  unite,   aome 

entitiea  muat  have  unique  namea  throughout  all  the  program  unite.   The       ^^ 

entitiea  are:                                                           ^^^ 

e  Proceaaor-def ined  functiona 

e  Function  aubprograma 

e  Subroutine  aubprograma 

e  Common  blocka 

e  Main  programa 

e  Block  data  aubprograma 

2.2   DATA  TTPB8 

Bach  baaic  component  (conatanta,  variablea,  and  ao   forth)   repreaenta       ^^ 
one  of  aeveral  data  typea:                                               ^^^ 

■ 

e  Integer  --  a  whole  number. 
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•  Real  —  a  decimal  number,  that  is,  a  whole  number, 
fraction,  or  a  combination  of  the  two. 


a  decimal 


e  Double  precision  —  a  real  nuir.ber  with  more  than  twice  as  many 
maximum  significant  digits. 

e  Complex  —  a  pair  of  real  numbers  representing  a  complex 
number;  the  first  value  represents  the  real  part,  the  second 
represents  the  imaginary  part. 

e  Logical  —  true  or  false. 

The  data  type  of  a  basic  component  can  be  specified  in  one  of  three 
ways:  it  can  be  inherent  in  its  construction  (as  in  constants);  it 
can  be  implied  by  naming  convention  (with  or  without  an  IMPLICIT 
statement);   or  it  can  be  explicitly  declared. 

Whenever  a  value  of  one  data  type  is  converted  to  a  value  of  another 
type,  the  conversion  is  performed  according  to  the  rules  for 
assignment  statements  (see  Section  3.1). 

ANS  FORTRAN  Specifies  that  a  "numeric  storage  unit**  is  the   amount   of 

memory  needed   to   store  a  real,  integer,  or  logical  value.   Double 

precision  and  complex  values  occupy  two   numeric   storage   units.    In 

PDP-11  FORTRAN  IV,  a  numeric  storage  unit  is  four  bytes  of  memory. 

PDP-11  FORTRAN  IV  provides  additional  data  types  for  better  control  of 
performance  and  memory  requirements.  Table  2-2  lists  the  data  types 
available  and  the  amount  of  memory  required  (in  bytes).  The  form  *n 
appended  to  a  data  type  name  is  called  a  data  type  length  specifier. 


Table  2-2 X   Data  Type  Storage  Requiceaents 


Data  Type 

BYTE 

LOGICAL 

L0GICAL*1 

L0GICAL*4 

INTBGPR 

INTBGER*2 

INTEGER*4 

REAL 

RBAL*4 

Storage  lequir 
(■ytes) 


nts 


REAL*8 

DOUBLE  PRECISION 

COMPLEX 
COMPLEXES 


l2 

u 

4 

2  or 

2 

43 

4 

4 

f 

8 


Either  two  or  four  bytes  are  allocated  depending  on  the 
compiler  command  qualifier  specified.  The  default  allocation 
is  two  bytes.   Only  two  bytes  are  used  for  computation. 

The  1-byte  storage  area  can  contain  the  logical  values  true 
or  false,  a  single  character,  or  integers  in  the  range  -128 
to  ♦127 

Pour  bytes  are  allocated  but  only  two  bytes  are  used  for 
computation. 


BYTE  and  LOGICAL*!  are  synonymous. 
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2.3   CONSTANTS 

A  constant  represents  a  fixed  value  and  can  be  a  number,  a  logical 
value,  or  a  character  string. 

Hollerith  constants  or  alphanumeric  literals  have  no  data  type.  They 
assume  the  data  type  of  the  context  in  which  they  appear  (see  Section 
2.3.6.2). 


2.3.1   Integer  Constants 

An  integer  constant  is  a  whole  number  with  no  decimal  point.  It  can 
have  a  leading  sign  and  is  interpreted  as  a  decimal  number.  An 
integer  constant  has  the  following  form: 

snn 


An  optional  sign. 


nn 


A  string  of  numeric  characters. 

Leading  Os,  if  any,  are  ignored. 

A  minus  sign  must  appear  before  a  negative  integer  constant.  A  plus 
sign  is  optional  before  a  positive  constant  (an  unsigned  constant  is 
assumed  to  be  positive). 

Except  for  the  sign,  an  integer  constant  cannot  contain  a  character 
other  than  the  numerals  0  through  9. 

The  absolute  value  of  an  integer  constant  cannot  be  greater  than 
32767. 

Examples  of  valid  and  invalid  integer  constants  are: 

Valid  Invalid/Explanation 


-127 
♦32123 


99999999999   (too  large) 

3.14  (decimal  point  and 

32,767        comma  not  allowed) 


Integ«!r  constants  can  also  be  specified  in  octal  form.   The  octal  form 
of  an  integer  constant  is: 

"no 


nn 

A  String  of  digits  in  the  range  0  to  7. 

An  octal  integer  constant  cannot  be  negative  or  greater  than  •'177777. 
Examples  of  valid  and  invalid  octal  integer  constants  are: 
Valid  Invalid/Biplanation 


"107 
"177777 


"108       (contains  a  digit  outside  the   alloved 

range) 
"1377.     (decimal  point  not  allowed) 
"177777"   (trailing  quotation  mark  not  allowed) 


2-4 


FORTRAN  STATEMENT  COMPONENTS 


2.3.2  Real  Constants 

A  real  constant  is  a  number  with  a  decimal  point.   It  can  take  one  of 
three  forms: 

•  A  basic  real  constant 

•  A  basic  real  constant  followed  by  a  decimal  exponent 

•  An  integer  constant  followed  by  a  decimal  exponent 

A  basic  real  constant  is  a  string  of  deciiial  digits  in  one  of  three 
formats: 

s.nn 
snn.nn 
snn. 


An  optional  sign. 

A  String  of  decimal  digits. 

The  decimal  point  can  appear  anywhere  in  the  string.  The  number  of 
digits  is  not  limited,  but  only  the  leftmost  7  digits  are  significant. 
Leading  Os  (Os  to  the  left  of  the  first  nonzero  digit)  are  ignored  in 
counting  the  leftmost  7  digits.  Thus,  in  the  constant  0.00001234567, 
all  of  the  nonzero  digits  are  significant,  and  none  of  the  Os  are 
significant. 

A  decimal  exponent  has  the  form:  ;  ^ 

Esnn  '■„.'  ■  '"%:'.  '"■■':.  ,'-'"",^:w''',  ■    .  ' 


An  optional  sign. 


An  integer  constant. 

The  exponent  represents  a  power  of  10  by  which  the  preceding  real  or 
integer  constant  is  to  be  mult;iplied  (for  example,  1.0E6  represents 
the  value  1.0  *  10  **  6) . 

A  real  constant  occupies  four  bytes  and  is  interpreted  as  a  real 
number  with  a  precision  of  typically  seven  decimal  digits. 

A  minus  sign  must  -  . -r  between  the  letter  E  and  a  negative  exponent. 
A  plus  sign  is  opt*^  .        positive  exponent. 

Except  for  algebraic  signs,  a  c  mal  p  int,  and  the  letter  E  (if 
used),  a  real  constant  cann^  contain  a  character  other  than  the 
numerals  0  through  9. 

If  the  letter  E  appears  in  a  e  -constant,  an  integer  constant 
exponent  must  follow.  The  ext»v.i^'rt  cannot  be  omitted,  but  it  can  be 
0. 

The  magnitude  of  a  nonzero  teal  constant  cannot  be  smaller  than 
approximately  0.29E-38  or  greater  than  approximately  1.7E38. 
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Bxaapl**  of  valid  and  invalid  real  constants  arc: 
Valid  Invalid/Bsplanation 


3.14159 
621712. 

-.00127 
••-5.0E3 
2B-3 


1,234,567 

325E-45 

-47.E47 

100 

$25.00 


(connas  not  allowed) 
(too  small) 
(too  large.' 

(decimal  point  missing) 
(special  character 
not  allowed) 


2.3.3  Double  Precision  Constants 

A  double  precision  constant  is  a  basic  real   constant   or  an      integer 
constant  followed  by  a  decimal  exponent  of  the  following  form: 

Dsnn 


nn 


An  optional  sign. 


An  integer  constant. 


A  double  precision  constant  occupies  eight  bytes  and  is  interpreted  as 
a  real  number  with  a  precision  of  typically  16  decimal  digits.  The 
number  of  digits  that  precede  the  exponent  is  not  limited,  but  only 
the  leftmost  16  digits  are  significant. 

A  minus  sign  must  appear  before  a  negative  double  precision  constant; 
a  plus  sign  is  optional  before  a  positive  constant.  Similarly,  a 
minus  sign  must  appear  after  the  letter  D  for  m  negative  exponent 
while  a  plus  sign  is  optional  for  a  positive  exponent. 


The  exponent  following  the  letter  D  cannot  be 

a  nonsero  double 
ly  0.29D-38  or  gre 

d  and  invalid  doub 


lagnitude 
approximj 


litted,  but  it   can  be 


constan   cannot  be  smaller 
approiimately  1.7D38. 


ipl4 


pti 


on  constants  are: 


Valid 


Invalid/Bsplanation 


• 


123456^  '00*5 
♦  2.7182<)^82846182r')0 
-72.5D-15 
lOO 


1234567890045 
1234567890. OD-89 
♦2.7182812846182 


(too  large) 

(too  small) 

(no  Dsnn  present; 
this  X9   a  valid 
real  constant) 


2.3.4  Coa»lec  Constants 


A  complex  constant  is  a  ^atr  of  real  constants  separated  by  a  comma 
and  enclosed  in  parentheses.  The  first  real  constant  represents  the 
real  part  of  the  complex  number  and  the  second  real  constant 
represents  the  imaginary  part. 


2-8 


POSTKAH  STATmnr  COHPOMMTS 

A  coaplex  constant  has  the  following  form: 
(re, re) 

re 

A  rsal  constant. 

The  parentheses  and  coona  are  part  of  the  complex   constant   and   are 
required.   See  Section  2.3.2  for  the  rules  for  fanning  real  constants. 

A  conplex  constant  occupies  eight   bytes   and   is   interpreted   as   a 
complex  number . 

Examples  of  valid  and  invalid  complex  constants  are: 

Vali£  Invalid/liplanstion 


(1.70391,-1.70391) 
(♦12739E3,0.) 


(1,2) 
(1.23,) 

(1.0,1.000 


(integers  are  not  allowmd) 
(second  real  constant  is 

missing) 
(double  precision  constants 

are  not  allowmd) 


2.3.5  Logical  ConSvcnts 

A  logical  constant  specifies  true  or  false.   Thus,  only  the   following 
two  logical  constants  are  possible: 

.TRUE. 

.PALS^. 

The  delimiting   periods   <ire   a    required   part   of   each   constant. 


2.3.6  Hollerith  Constants 

A  Hollerith  constant  is  a  string  of  printable  characters  preceded  by  a 
character  count  and  the  letter  H. 

A  Hollerith  constant  has  the  following  form: 
nHclc2c3. ..en 


An  unsigned,  nonzero   integer   constant   stating   the   number   of 
characters  in  the  string  (including  spaces  and  tabs). 


A  printable  character. 
Tfie  maximum  number  of  characters  is  255. 
Examples  of  valid  and  invalid  Hollerith  constants  are: 
-"Valid  Invslld/liplanstion 


leHTOOAY'S  DATE  IS: 
IHB 


3HABC0   (wrong  number  of  characters) 
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2.3.6.1  AlphanuMficic  Literals  -  An  alphanumeric  literal  is  a  string 
of  printable  ASCII  characters  enclosed  by  apostrophes  that  represents 
an  alternate  form  of  a  Hollerith  constant.   The  form  is: 

•clc2c3. . .en' 


A  printable  character. 

Both  delimiting  apostrophes  must  be  present. 

Within  an  alphanumeric  literal,  the  apostrophe  character  is 
represented  by  two  consecutive  apostrophes  (with  no  space  or  other 
character  between  them) . 

The  length  of  the  alphanumeric  literal  is  the  number  of  characters 
between  the  apostrophes,  including  spaces  and  tabs,  except  that  two 
consecutive  apostrophes  represent  a  single  apostrophe.  A  tab  is 
stored  as  a  single  character  but  is  displayed  as  spaces  up  to  the  next 
tab  stop.   The  length  must  be  in  the  range  from  1  to  255. 

Examples  of  valid  and  invalid  literals  are: 

Valid  Invalid/Explanation 


•WHAT?' 

•TODAY* 'S  DATE  IS: 

HE  SAID,  "HELLO" • 


•HEADINGS 
"NOW  OR  NEVER'^ 


(must  contain  trailing 

apostrophe) 
(roust  contain  at  least 

one  character) 
(quotation       marks 

cannot   be  used   in 

place  of  apostrophes) 


2.3.6.2  Data  Type  Rul«s  for  Hollerith  Constants  -  When  Hollerith 
constants  are  used  in  numeric  expressions,  they  assume  a  data  type 
according  to  the  following  rules: 

e  When  the  constant  is  used  with  a  binary  operator,  including 
the  assignment  operator,  the  data  type  of  the  constant  is  the 
data  type  of  the  other  operand.   For  example: 


8tat4 


mt 


Data  Type 
of  Constant 


Length  of 
Constant 


INTEGER*2  ICOUNT 
RBAL*8  DOUBLE 


RALPHA 

•  4HABCD 

REAL*4 

« 

JCOUNT 

■  ICOUNT  ♦  •XY^ 

INTEGER*2 

t 

DOUBLE 

«  8HABCDEFGH 

REAL*8 

t 

f 


8tat4 


mt 


Data  type   Length  of 
of  Constant  Constant 


X-y(lHA) 


INTBGER*2 


e  When  a  specific  data  type  is  required,  that   type   is  assumed 
for  the  constant.   For  example: 
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When  the  constant  is  used  as  an  actual  argument,  no  data   type 
is  assumed.   For  example: 


Data  Type    Length  of 
Statement         of  Constant   Constant 

CALL  APAC  (9HABCDEFGHI)      none 

9 

• 

When  the  constant  is  used  in  any  other  context,  INTEGER*2  data 
type  is  assumed.   For  example: 

Data  Type 
Stateamnt                of  Constant 

Length  of 
Constant 

IF  {2HAB)  1,2,3                  INTEGER*2 
I-  IHC-lHA                        INTEGER*2 
J«  .NOT.  'B'                      INTEGER*2 

2 
2 
2 

When  the  length  of  the  constant  is  less  than  the  length  implied  by  the 
data  type,  spaces  are  appended  to  the  constant  on  the  right.  When  the 
length  of  the  constant  is  greater  than  the  length  implied  by  the  data 
type,  the  constant  is  truncated  on  the  right. 

Table  2-2  lists  the  number  of  characters  required  for  each  data  type. 
Each  character  occupies  one  byte  of  scorage. 


2.4   VARIABLES 

-  variable  is  a  symbolic  name  associated  with  a  storage  location  (see 
Section  2.1  for  the  form  of  a  symbolic  name).  The  value  of  the 
variable  is  the  value  currently  stored  in  that  location;  however,  you 
can  change  that  value  by  assigning  a  new  value  to  the  variable. 

Variables  are  classified  by  data  type,  as  are  constants.  The  data 
type  of  a  variable  indicates  the  type  of  data  it  represents,  its 
precision,  and  its  storage  requirements.  When  data  of  any  type  is 
assigned  to  a  variable,  it  is  converted,  if  necessary,  to  the  data 
type  of  the  variable.  You  can  establish  the  data  type  of  a  variable 
by  using  type  declaration  statements  or  IMPLICIT  statements,  or  by 
choosing  names  that  begin  with  certain  letters. 

Two  or  more  variables  are  associated  with  each  other  when  they  refer 
to  the  same  memory  location.  They  are  partially  associated  when  part 
of  the  location  to  which  one  variable  refers  is  the  same  as  part  or 
all  of  the  location  to  which  the  other  variable  refers.  Association 
and  partial  association  occur  when  you  use  COMMON  statements, 
EQUIVALENCE  Statements,  and  actual  arguments  and  dummy  arguments  in 
subprogram  references. 

A  variable  is  consiiS^rrd  defined  if  the  storage  associated  with  it 
contains  data  of  the  same  type  as  the  name.  A  variable  can  be  defined 
before  program  execution  by  a  DATA  statement  or  during  execution  by  an 
assignment  or  input  statement. 

If  variables  of  different  data  types  are  associated  (or  partially 
associated)  with  the  same  storage  location,  and  the  value  of  one 
variable  is  defined  (for  example,  by  assignment) ,  the  value  of  the 
other  variable  becomes  undefined;  that  is,  you  cannot  predict  its 
value. 
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2.4.1  Data  Type  Specification 

Type  declaration  statements   (see   Section   5.2) 
variables  are  to  represent  specified  data  types. 

COMPLEX  VARl 

DOUBLE  PRECISION  VAR2 


specify  that  given 
For  example: 


These  statements  indicate  that  the  variable  VARl  is  to  be  associated 
with  an  8-byte  storage  location  which  will  contain  complex  data,  and 
that  the  variable  VAR2  is  to  be  associated  with  an  8-byte  double 
precision  storage  location. 

The  IMPLICIT  statement  (see  Section  5.1)  has  a  more  general  scope:  it 
signifies  that,  in  the  absence  of  an  explicit  type  declaration,  a 
variable  name  beginning  with  a  specified  letter,  or  any  letter  within 
a  specified  range,  is  to  represent  a  specific   data  type. 


You  can  explicitly  declare  the  dJta  type  of  a  variable  only  once, 
explicit  declaration  takes  precedence  over  an  IMPLICIT  statement. 


An 


• 


2.4.2  Data  Type  by  laplication 

In   the  absence  of  either   IMPLICIT   statements   or   explicit  type 

declaration  statements,  all  variables  with  names  beginning  with  I,  J, 

K,  L,  M,  or  N  are  assumed  to  be   integer   variables.   Variables  with 

names   beginning  with  any  other   letter   are  assumed   to  be  real 
variables.   For  example: 


Real  Variables 


ALPHA 


BETA 
TOTAL 


Integer  Variables 
JCOONT 
ITEM 
NTOTAL 


2.5   ARRAYS 

An  array  is  a  group  of  contiguous  storage  locations  associated  with  a 
single  symbolic  name,  the  array  name.  The  individual  storage 
lo  ations,  called  array  elements,  are  referred  to  by  a  subscript 
•pp.»nded  to  the  array  name.   Section  2.5.2  discusses  subscripts. 

An  array  can  have  from  one  to  seven  dimensions.  For  example,  a  column 
of  figures  is  a  one-dimensional  array.  To  refer  to  a  value,  you  must 
specify  the  row  number.  A  table  of  more  than  one  column  of  figures  is 
a  two-dimensional  array.  To  refer  to  a  value  you  must  specify  both 
row  number  and  column  number.  A  table  of  figures  that  covers  several 
pages  is  a  three-dimensional  array.  To  refer  to  a  value  in  this 
array,  you  must  specify  row  number,  column  number,  and  page  number. 

The  following  FORTRAN  statements  establish  arrays: 

— ^-. «  Type  declaration  statements  (see  Section  5.2) 

e  The  DIMENSION  Btatemsnt  (see  Section  5.3) 

e  The  COMMON  statement  (see  Section  5.4) 

•     The  VIRTUAL  statesient    (see  Section  5.5) 
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These  statements  may  contain  array  declarators  (see  Section  2.5.1) 
that  define  the  name  of  the  array,  the  number  of  dimensions  in  the 
array,  and  the  number  of  elements  in  each  demension. 

An  element  of  an  array  is  considered  defined  if  the  storage  associated 
with  it  contains  data  of  the  same  type  as  the  array  name  (see  Section 
2.5.4).  An  array  element  or  an  entire  array  can  be  defined  before 
program  execution  by  a  DATA  statement.  An  array  element  can  be 
defined  during  program  execution  by  an  assignment  or  input  statement, 
and  an  entire  array  can  be  defined  during  program  execution  by  an 
input  statement. 


2.5.1  Array  Declarators 

An  array  declarator  specifies  the  symbolic  name  that  identifies  an 
array  within  a  program  unit  and  indicates  the  properties  of  that 
array. 

An  array  declarator  has  the  following  form: 

a  (dl,d)  ...) 


The  symbolic   name   of   the   array,   that   is,   the   array   name. 
(Section  2.1  gives  the  form  of  a  symbolic  name.) 

A  dimension  declarator  that  is  an   integer   constant   or   integer 
variable  that  specifies  the  upper  bound  of  the  array. 

The  number  of  dimension  declarators  indicates  the  number  of  dimensions 
in  the  array.   The  number  of  dimensions  can  range  from  one  to  seven. 

For  example  4  in 

DIMENSION  lUNIT  (10,10,10) 

lUNIT  is  a  three-dimensional  array. 

The  value  of  a  dimension  declarator  specifies  the  number  of  elements 
in  that  dimension.  In  the  example  above,  each  dimension  of  lUNIT 
consists  of  10  elements. 

The  number  of  elements  in  an  array  is  equal  to  the  product  of  the 
number  of  elements  in  each  dimension.  lUNIT  above  contains  1000 
elements . 

An  array  name  can  appear  in  only  one  array  declarator  within  a  program 
unit. 

Dimension  declarators  that  are  not  constant  can  be  used  in  a 
subprogram  to  define  adjustable  arrays.  You  can  use  adjustable  arrays 
within  a  single  subprogram  to  process  arrays  with  different  dimension 
declarators  by  specifying  the  declarators  as  well  as  the  array  name  as 
subprogram  arguments.  See  Section  6.1.2  for  more  information. 
Dimension  declarators  that  are  not  constant  are  not  permitted  in  a 
main  program. 


2.5.2  Subscripts 

A  subscript  qualifies  an  array   name.    A   subscript   is   a   list   of 
expressions,   called   subscript   expressions,   that   are  enclosed   in 
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and   that  determine  which  element   in   the  array   is 
The  subscript  is  appended  to  the  array  name  it  qualifies. 


A  subscript  has  the  following  form: 

(s[,s] ...) 

s 

A  subscript  expression. 


A  subscript  expression  can  be 
expression.   If  the  value  of  a 
converted  to  integer  by 


a  constant,   variable,   or  arithmetic 
subscript  is  not  of  type  integer,  it  is 
truncation  of  any  fractional  part. 


A  subscripted  array  reference  must  contain  one  subscript  expression 
for  each  dimension  defined  for  that  array  (one  for  each  dimension 
declarator) . 


2.5.3  Array  Storage 

As  discussed  earlier  in  this  section,  you  can  think  of  the  dimensions 
of  an  array  as  rows,  columns,  and  levels  or  planes.  However,  FORTRAN 
always  stores  an  array  in  memory  as  a  linear  sequence  of  values.  A 
one-dimensional  array  is  stored  with  its  first  element  in  the  first 
storage  location  and  its  last  element  in  the  last  storage  location  of 
the  sequence.  A  multidimensional  array  is  stored  so  that  the  lefmost 
subscripts  vary  most  rapidly.  This  is  called  the  "order  of  subscript 
progression."  For  example.  Figure  2-1  shows  array  storage  in  one,  two, 
and  three  dimensions. 


2.5.4  Data  Type  of  an  Array 


The  data  type  o 
type  of  a  var 
name  or  explici 

All  the  values 
assigned   to   a 
array.   If  an  a 
example,   the 
element  of  the 
element  of  that 


f  an  array  is  specified  in  the  same  vay  as  the  data 
iable,  that  is,  implicitly  by  the  initial  letter  of  the 
tly  by  a  type  declaration  statement. 

in  an  array  have  the  same  data  type.  Any  value 
n  array  element  is  converted  to  the  data  type  of  the 
rray  is  named  in  a  DOUBLE  PRECISION  statement,  for 
compiler  allocates  an  8-byte  storage  location  for  each 
array.  When  a  value  of  any  type  is  assigned  to  any 
array,  it  is  converted  to  double  precision. 


2.5.5  Array  References  Without  Subscripts 

In  the  following  types  of  statements,  you  can  specify  an  array  name 
without  a  subscript  to  indicate  that  the  entire  array  is  to  be  used 
(or  defined) : 

•  Type  declaration  statements 

•  COMMON  statement 

•  DATA  statement 

•  EQUIVALENCE  Statement 
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•  FUNCTION  Statement 

•  SUBROUTINE  statement 

•  Input/output  statements 

You  can  also  use  unsubsci ipted  array  names  as  actual  arguments  in 
references  to  external  procedures.  Unsubscr ipted  array  names  are  not 
permitted  in  any  other  type  of  statement. 

On*-Oim«n«K>n«l  Array  BRC  (6) 


Bncdi 


BRC(2) 


BRC(3)     4 


BPC|4) 


Bnc<st 


BRCie)! 


Lzr 


Memory  PowtKMtt 


T««o-Oim«nsK>r>«l  Array  BAN  (3  4t 


1 

bANi  1) 

4 

BAN<1  2) 

7 

BA»M1  3) 

10 

BANil  4» 

2 

BAN(2  11 

s 

BAN<22) 

a 

BAN<2  3t 

11 

BAN42  4I 

3 

BAN43  1» 

6 

BAN43  2I     9 

BANI3  3I 

12 

BAM43  4I 

-Memory  PoMiorts 


Thf-  c«»T>aoaiooi  Array  BOS  i3  3  3» 


<ll-««*4> 


Figure  2-1:   Array  Storage 


2.S.6   Adjustable  Arrays 

Adjustable  arrays  allow  subproqraaa  to  isanipulate  arrays  of  variable 
di»enaions.  To  use  »n  ad^uatable  array  in  a  suhproqrafl*  you  apecify 
the  array  bounds  and  the  array  nmm^  as  subproqraa  arquMents.  See 
Chapter  6  for  more  ir forest  ion. 


2.«   BAFRISSIOMS 

An  espreasion  represents  a  single  value.   It  can   be  «   single   basic 
coaponent,   such   as  a  constant  or  variable,  or  a  coaibmstion  of  basic 
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coaponcnts  with  one  or  more  operators.  Operators  specify  cosiputations 
to  be  pcrforned,  using  the  valae(s)  of  the  basic  component (s)  to 
obtain  a  single  value. 

Expressions  are  classified  as  arithnetic*  relational,  or  logical. 
Arithaetic  expressions  produce  nuiseric  values;  relational  and  logical 
expressions  produce  logical  values. 


2.6.1  Arittiaetic  Ispressions 

Arithfe«tic  expressions  are  foraed  with  arithsMtic  elenents  and 
arithnetic  operators.  The  evaluation  of  such  an  expression  yields  a 
single  nuaeric  valcf . 

An  arithaetic  eleaent  can  be  any  of  the  following: 

e  A  nuaeric  constant 

e  A  nuaeric  variable 

e  A  nuaeric  array  eleaent 

e  An  arithaetic  expression  enclosed  in  parentheses 

e  An  arithaetic  function  reference 

The  term  "nusMric,"  as  used  above,  can  also  be  interpreted  to  include 
logical  data,  since  logical  data  is  treated  as  int^er  data  when  used 
in  an  arithaetic  context. 

Arithaetic  operators  specify  s  coaputatioi.  to  be  porfocaed  using  the 
values  of  arithaetic  eleaents  to  produce  a  nuB«ric  value  as  a  result. 
The  operators  and  their  meanings  are: 


Operator 

/ 


Function 

Exponentiation 

Multiplication 

Division 

Addition  and  unary  plus 

Subtraction  and  unary  minus 


These  operators  are  called  binary  operators  because  each  is  used  with 
two  eleaents.  The  plus  (♦)  and  minus  (-)  symbols  are  also  unary 
operators  when  written  iaaediately  preceding  an  arithaetic  eleaent  to 
denote  a  positive  or  negative  value. 


Tou  can  use  any  arithaetic  operator  with  any  valid  arithaetic  eleaent, 
•xcept  as  noted  in  Table  2-3. 

A  variable  or  array  eleaent  aust  have  a  defined  value  before  it  can  be 
used  in  an  arithaetic  expression. 
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Table  2-3  shows  the  allowed  combinations  of  data   types   of   base  and 
exponent,  and  the  data  type  of  the  result  of  exponentiation. 

Table  2-3:  Result  Data  Type  for  Exponentiation 


Base 


Integer 


Exponent 


Real   Double    Coup lex 


Integer 
Real 
Double 
Complex 


Integer 
Real 
Double 
Complex 


No  No 

Real  Double 

Double  Double 

No  No 


Note:  A  negative  element  can  be  exponentiated 
only  by  an  integer  element;  and  an  element  with  a 
0  value  cannot  be  exponentiated  by  another  0-value 
element. 


In  any  valid  exponentiation,  the  result  has  the  same  data  type  as  the 
base  element,  except  in  the  case  of  a  real  base  and  a  double  precision 
exponent.   The  result  in  this  case  is  double  precision. 

Arithmetic  expressions  are  evaluated  in  an  order  determined  by  the 
operators.  The  operators  are  ranked  in  precedence  and  operations  of 
higher  precedence  are  performed  first.   The  precedence  is: 


Operator 


*  and  / 


•♦•  and  - 


Precedence 

First 

Second 

Third 


?^en  two  or  more  operators  of  equal  precedence  (such  as  +  and  -) 
appear,  "hey  are  evaluated  by  the  compiler  in  any  order  that  is 
algebrr  lly  equivalent  to  a  left-to-right  order  of  evaluation.  For 
example,  in  3+4-1,  the  addition  is  performed  before  the  subtraction. 
Exponentiation,  however,  is  evaluated  right  to  left.  For  example,  in 
A**B**C,  B**C  is  evaluated  first  and  then  A  is  raised  to  the  resulting 
power .      , 


2.6.1.1  Use  of  Parentheses  -  You  can  use  parentheses  to  force  a 
particular  order  of  evaluation.  When  part  of  an  expression  ib 
enclosed  in  parentheses,  that  part  is  evaluated  first  and  the 
resulting  value   is   used   in   the  evaluation  of  the  remainder  of  the 
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expression.    In   the   following  examples,   the  numbers  below   the       _ 
operators  indicate  the  order  of  evaluation:                              ^^k 

4+3*2-6/2»7                                               ^^ 

4   4   ♦   4 
3    14    2 

(4+3)  *  2  -  6  /  2  =  11 

4   *   ♦   ♦   ., 

12    4    3 

(4  +  3  *  2  -  6)  /  2  =  2 

4   4   4    4 

2    13     4 

((4+3)*2-6)/2»4 

4   4   4    4 

12    3     4 

As  shown   in  the  third  and   fourth  examples,   expressions  within 
parentheses  are  evaluated  according  to  the  normal  order  of  precedence,      ^^^ 
unless  you  override  the  order  by  using  parentheses  within  parentheses.      ^^B 

Using  parentheses  to  specify  the  evaluation  order  is  often   important 
in   high-accuracy  computations  since  evaluation  orders  that  are 
algebraically  equivalent  might  not  be  computationally  equivalent  due 
to  rounding  and  normalization. 

Using  parentheses   to  specify   the  evaluation  order   is   important, 
furthermore,   in  difficult  expressions.   If  any  doubt  exists  as  to  the 
resulting  value  of  an   xpression,  use  parentheses.   Extra  parentheses 
do  not  affect  the  result,  but  lack  of  sufficient  parentheses  does.          ^^^ 

2.6.1.2  Data  type  of  an  Arithnetic  Expression  >  If  every  element   in 
an   arithmetic  expression  is  of  the  same  data  type,  the  value  produced 
by  the  expression  is  also  of  that  data  type.   If  elements  of  different 
data   types  are  combined  in  an  expression,  the  data  type  of  the  result 
of  each  operation  is  determined  by  a  rank  associated  with  each  data 
type,  on  the  following  basis: 

Data  Type               Rank                                   ^^ 

Logical                 1  (Low)                                  ^^ 

Integer                 2 

Real                    t 

Double  precision         4 

Complex                 5  (High) 



The  data  type  of  the  value  produced  by  an  operation  on  two  arithmetic 
elements   of   different   data   types   is   the  data   type  of   the 
highest-ranked  element  in   the   operation.    For   example,   the   value 
resulting   from  an  operation  on  an  integer  and  a  real  element  is  real. 
The  data  type  of  an  expression  is  the  data  type  of  the  result   of   the 
last  operation  in  that  expression. 

• 
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Operations  are  classified  by  data  type  as  follows: 

•  Integer  operations  —  Integer  operations  are  performed  only  on 
integer  elements.  (Logical  entities  used  in  an  arithmetic 
context  are  treated  as  integers.)  In  integer  arithmetic,  any 
fraction  that  can  result  from  division  is  truncated,  not 
rounded.   For  example: 

1/3  +  1/3  +  1/3 

The  value  of  this  expression  is  0,  not  1. 

•  Real  operations  —  Real  operations  are  performed  only  on  real 
elements   or   combinations   or   real,   integer,   and   logical 

Any  integer  elements  present  are  converted  to   real 

0.   The 

Note, 

integer 

a   real 


elements. 

data   type   by  giving  each  a  fractional  part  equal  to 
expression  is  then  evaluated   using   real   arithmetic, 
however,   that   in   the   statement   Y   =   (I/J)*X,   an 
division  operation   is   performed   on   I   and  J   and 
multiplication  is  performed  on  that  result  and  X. 


Double  precision  operations  —  Any  real  or  integer  element  in 
a  double  precision  operation  is  converted  to  double  precision 
by  making  it  the  most  significant  portion  of  a  double 
precision  element.  The  least  significant  portion  is  0.  The 
expression  is  then  evaluated  in  double  precision  arithmetic. 

Converting  a  real  element  to  a  double  precision  element  does 
not  increase  its  accuracy.   For  example,  the  real  number: 

0.3333333 

is  converted  to: 

0.3333333OOO000000D0 
not  to: 


C.3333333333333333D0 

Complex  operations  —  In  an  operation  on  an  expression 
containing  a  complex  element,  integer  elements  are  converted 
to  real  data  type,  as  previously  described.  Double  precision 
elements  are  converted  to  real  data  type  by  rounding  the  least 
significant  portion.  The  real  element  thus  obtained  is 
designated  as  the  real  part  of  a  complex  number;  the 
imaginary  part  is  0.  The  expression  is  then  evaluated  using 
complex  arithmetic  and  the  resulting  value  is  complex. 


2.6.2   Relational  BxpreBsions 

A  relational  expression  consists  of  two  arithmetic  expressions 
separated  by  a  relational  operator.  The  value  of  the  expression  is 
true  if  the  stated  relationship  exists  and  false  if  it  does  not. 


2-17 


FORTRAN  STATBMBHT  COHPOMENTS 


A  relational  operator  tests  for  a  relationship  between  two  arithmetic 
expressions.   These  operators  are: 


Operator 

.LT. 
.LB. 
.EQ. 
.NE. 
.GT. 


Relationship 

Less  than 

Less  than  or  equal  to 

Equal  to 

Not  equal  to 

Greater  than 


.GE.  Greater  than  or  equal  to 

The  delimiting  periods  are  a  required  part  of  each  operator. 

Complex  expressions  can  be  related  only  by  the  .EQ.  and  .NE. 
operators.  Complex  entities  are  equal  if  their  corresponding  real  and 
imaginary  parts  are  both  equal. 

In  an  arithmetic  relational  expression,  the  arithmetic  expressions  are 
first  evaluated  to  obtain  their  values.  These  values  are  then 
compared  to  determine  whether  the  relationship  stated  by  the  operator 
exists.   For  example: 

APPLE+PEACH  .GT.   PEAR+ORANGE 

This  expression  states  the  relationship,  "The  sum  of  the  real 
variables  APPLE  and  PEACH  is  greater  than  the  sum  of  t-he  real 
variables  PEAR  and  ORANGE."  If  that  relationship  exists,  the  value  of 
the  expression  is  true;   if  not,  the  value  of  the  expression  is  false. 

All  relational  operators  have  the  same  precedence.  Arithmetic 
operators  have  a  higher  precedence  than  relational  operators. 

As  in  any  other  arithmetic  expression,  you  can  use  parentheses  to 
alter  the  order  of  evaluation  of  the  arithmetic  expressions  in  a 
relational  expression.  However,  since  arithmetic  operators  are 
evaluated  before  relational  operators,  you  need  not  enclose  the  entire 
arithmetic  expression  in  parentheses. 

You  can  compare  two  numeric  expressions  of  different  in  a  relational 
expression.  In  this  case,  the  value  of  the  expression  with  the 
lower-ranked  data  type  is  converted  to  the  higher-ranked  data  type 
before  the  comparison  is  made. 


2.6.3  Logical  Bxpreasiona 

Logical  expressions  are  formed  with  logical  elements  and  logical 
operators.  A  logical  expression  yields  a  single  logical  value,  either 
true  or  false. 

A  logical  element  can  be  any  of  the  following: 

e   An  integer  or  logical  constant 

e   An  integer  or  logical  variable 

•  An  integer  or  logical  array  element 
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•  A  relational  expression 

•  A  logical  expression  enclosed  in  parentheses 

•  An  integer  or  logical  function  reference 
The  logical  operators  are: 


Operator 

.AND. 

.OR. 
.XOR. 


Exaaple 
A  .AND.   B 

A  .OR.   B 

A  .XOR.   B 


.EQV. 


A  .EQV.   B 


.NOT. 


.NOT. 


Meaning 

Logical  conjunction:  The  expression  is 
true  if,  and  only  if,  both  A  and  B  are 
true. 

Logical  disjunction  (inclusive  OR):  The 
expression  is  true  if  either  A  or  B,  or 
both,  is  true. 

Logical  exclusive  OR:  The  expression  is 
true  if  A  is  true  and  B  is  false,  or 
vice  versa;  but  the  expression  is  false 
if  both  elements  have  the  same  value. 

Logical  equivalence:  The  expression  is 
true  if,  and  only  if,  both  A  and  B  have 
the  same  logical  value,  whether  true  or 
false. 

Logical  negation:  The  expression  is 
true  if,  and  only  if,  A  is  false. 


The  delimiting  periods  of  logical  operators  are  required. 

A  logical  expression  is  evaluated  according  to  an  order  of  precedence 
assigned  to  its  operators.  The  following  list  gives  the  order  in 
which  all  the  operators  that  can  apoear  in  a  logical  expression  are 
evaluated: 


Opecatoi: 


•* 


,/ 


+  »- 


Relational 
Operators 

.NOT. 

.AND. 

.OR. 

.XOR.,. EQV. 


Precedence 

First  (Highest) 

Second 

Third 

Fourth 

Fifth 

Sixth 

Seventh 

Eighth 


Operators  of  equal   rank  are  evaluated   from  left   to  right.    For 
example:   „.__. , _ ,.. ;_ _,.   _ _ _ 

A*B+C*ABC  .EQ.   X*Y+DM/ZZ  .AND.   .NOT.   K*B  .GT.   TT 

The  sequence  in  which  evaluation  occurs  is: 

(( (A*B)+(C*ABC)) .EQ. ( (X*Y) + (DM/ZZ) ) ) .AND. (.NOT. ( (K*B) .GT.TT)) 
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Ks    in   arithmetic  expressions,  you  can  use  parentheses   to  alter   the 
normal  sequence  of  evaluation. 

Two  consecutive  logical  operators  are  not  allowed  unless  the  second  is 
.NOT. . 

Some  logical  expressions  4re  evaluated  before  all  their  subexpressions 
are  evaluated.  For  ex&  pie,  if  A  is  .FALSE.,  th«>  expression  A  .AND. 
(F(X,Y)  ,GT.  2.0)  .AND.  B  IS  .FALSE..  The  value  of  the  expression 
can  be  determined  by  testing  A  without  evaluating  F(X,Y).  Thus,  the 
function  subprogram  F  may  not  be  called,  and  side-effects 
from  the  call,  such  as  changing  variables  in  COMMON,  cannot 


resulting 
occur . 


When  a  logical  operator  operates  on  logical  element:.,  the  resulting 
data  type  is  logical.  When  a  logical  operator  operates  on  integer 
elements,  the  logical  operation  is  carried  out  bit-by-bit  on  the 
corresponding  bits  of  the  internal  (binary)  representation  of  the 
integer  elements.  The  resulting  data  type  is  integer.  When  a  logical 
operator  combines  integer  and  logical  values,  the  logical  value  is 
first  converted  to  an  integer  value,  and  then  the  operation  is  carried 
out  as  for  two  integer  eleaients.   The  resulting  data  type  is  integer. 

Example: 


INTEGER  I,  J,  R 
I  «  "65 
J  '  I. OR. "ICO 
K  -  I. AND. "23 

In  t  lis  example,  I  has  the  value  "165  and  K   has  the  value  "21. 
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Assignment  statements  assign  a  single  value  to   a   variable   or   array 
element. 


The  three  kinds  o.  assignment  statements  are; 

•  Arithmetic  assignment  statement 

•  Logical  as   ^.iment  statement 

•  A55IGN  statement 


3.1   ARITHHtTIC  ASSIGMMBNT  STATEHBNT 

An  arithmetic  assignment  statement  assigns  an  arithmetic   value   to   a 
variable  or  array  element. 

The  arithmetic  assignment  statement  has  the  followi.ig  form: 
V  «  e 


'9. 


A  numeric  variable  or  array  felem^nt. 


\n   arithmetic  expression. 


The  equal  sign  does   not   mean   "is   equal   to,"   as 
rather,  it  means  "is  replaced  by."  For  example: 

KOUHT  -  KOUNT  ♦  1 


in   mathematics; 


the   integer 


This  statement  means,   "replace   the   current   value   o 

variable   KOUNT  with   the   sum   of  the  current  value  of  KOUNT  and  the 

integer  constant  1." 


Although  the  symbolic  name  on  the  left  of  the  equal  sign  can  be 
undefined,  values  must  have  been  previously  assigned  to  all  symbolic 
references  in  the  expression  on  the  right  of  the  equal  sign. 

The  expression  must  yield  a  value  of  the  proper  size.  For  example,  a 
real  expression  that  produces  a  val» e  greater  than  32767  is  invalid  if 
the  entity  on  the  left  of  the  equal  sign  is  an  INTEGER*2  variable. 

If  V  and  e  have  the  same  data  types,  the  statement  assigns  the  value 
of  e  directly  to  v.  If  the  data  types  are  different,  the  value  of  e 
is  converted  to  the  data  type  of  v  before  it  is  assigned.  Table  3-1 
summarizes  the  data  conversion  rules  for  assignment  statements. 
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Table  3-1;     Conversion  Kules   for 

Assignnmnt  Statements 

Expression    (E) 

Variable 
or  Afray 

llaiMnt    (V) 

Int«9«r  or  Lexical                  teal 

Double 
Precialon 

Coaiplea 

Integer 

or 
Logical 

Assign    E   to  V                   Truncate    E   to 

integer    and 
asaign   to  V 

Truncate    E   to 
integer    and 
assign    to   V 

Truncate    real    part 
of    E    to    integer 
and   assign    to   V; 
imaginary   part 
of    E    is    not    used 

teal 

Append    fraction               Assign   E   to  V 
(.0)    to    E   and 
assign   to  V 

Assign   MS^    por- 
tion  of    E   to  V; 
LS^   portion   of 
E    is    rounded 

Assign    real    part 
of    E    to   V;    imag- 
inary  part    of    E 
is   not    used 

Double 
Precision 

Append    fraction               Assign   E   to   MS^ 
(.0)    to    E  and    as-          portion   of    v: 
sign    to   MS^   por-             LS^   portion   of 
tion   of    V;    LSl                  V    is    0 
portion   of   V    is    0 

Assign    E   to   V 

Assign    real    part 
of    E   to   MS^    por- 
tion   of    V;    LS^ 
portion    of   V    is 
zero,    imaginary 
part    of    E    IS    not 
used 

Complex 

Append    fraction               Assign   E   to 
(.)    to    E   and    as-             real    part    of   V; 
sign    to    real    part           imaginary   part 
of   V;    imaginary               of   V   is    0.0 
part   of    V   IS   0.0 

Assign   MS^    por- 
tion   of    E    to    real 
part    of    V;    LSJ 
portion    of    E    is 
roundec,    imagi- 
nary  part    of    V 
is    0.0 

Assign    E    to   V 

I.      MS   >  most   significant    (high  order);      LS   >    least 

significant      (1 

ow     order) 

Examples   o 

f   valid   and    invalid   assignment 

Statements   are 

1 . 

Valid 

BETA 

-    -l./(2.*X)+A*A/(4.*(X*X)) 

PI    • 

3.14159 

SUM    - 

SUM+1. 

Invalid/Explanation 

3.14 

■  A-B                                    (entity   on 

or    array   e 

the    left   must 
lement) 

be      a      variable 

-J   - 

I**4                                       (entity   on 

or   array   e 

the    left   must 
lement) 

be     a      variable 

ALPHA 

-    ((X+6)*B*B/(X-Y)     (entity      on      the      right 

expression      because   the 
not   balanced) 

is      an      invalid 
parentheses   are 

i 
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3.2   LOGICAL  ASSIGNMENT  STATEMENT 

The  logical  assignment  statement  assigns   a   logical   value   (true   or 
false)  to  a  variable  or  array  element. 

The  logical  assignment  statement  has  the  following  form: 
V  ■  e 


A  logical  variable  or  array  element. 


A  logical  expression. 

Note  that  V  must  be  of  logical  data  type  and  e  must  yield  a  logical 
value.  Otherwise,  conversions  will  be  made  according  to  Table  3-1, 
but  the  values  will  not  have  any  logical  meaning. 

Values,  either  numeric  or  logical,  must  have  been  previously  assigned 
to  all  variables  or  array  elements  in  e. 

Examples  of  logical  assignment  statements  are: 

Valid 

LOGICAL  PAGEND,  PRNTOK,  ABIG 

PAGEND  «  .FALSE. 

PRNTOK  »  LINE  .LE.   132  .AND.   .NOT.   PAGEND 

ABIG  »  A  .GT.   B  .AND.   A  .GT.   C  .AND.   A  .GT.   D 

Invalid/Explanation 

X«.TRUE.  (entity  on  the  left  must  be  logical) 


ASSIGN 


3.3   ASSIGN  STATEMENT 


The  ASSIGN  statement  assigns  a  statement  label   value   to  an   integer 

variable.    The   variable  can   then   be  used   to  specify  a  transfer 

destination  in  a  subsequent  assigned  GO  TO  statement   (see  Section 
4.1.3). 

The  ASSIGN  statement  has  the  following  form: 
ASSIGN  s  TO  V 


The  label  of  an  executable  statement  in  the  same  program  unit   as 
the  ASSIGN  statement. 


An  integer  variable. 

The  ASSIGN  statement  assigns  the  statement  label  to  the  variable.    It 
is   similar   to   an  arithmetic  assignment  statement,  except  that  the 
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variable  becomes  defined  for  use  as  a  statement  label  reference  and 
becomes  undefined  as  an  integer  variable;  that  is,  the  value  rannot 
be  used  for  purposes  of  output  or  arithmetic. 

The  statement  label  must  refer  to  an  executable  statement  in  the  same 
program  unit.   It  may  not  refer  to  a  FORMAT  statement. 

The  ASSIGN  statement  must  be  executed  before  the  assigned  GO  TO 
statement(s}  in  which  the  assigned  variable  is  to  be  used.  The  ASSIGN 
statement  and  the  assigned  GO  TO  statement (s)  must  occur  in  the  same 
program  unit. 

For  example: 

ASSIGN  100  TO  NUMBER 

This  statement  associates  the  variable  NUMBER  with  the  statement  label 
100.  Arithmetic  operations  on  the  variable,  as  in  the  following 
statement,  then  become  invalid.   For  example: 

NUMBER  =  NUMBER+1 


is  undefined  and  does  not  result  in  a  value  of   101   being   stored 
NUMBER. 


in 


Assigning   the   variable   a 
assignment  statement: 

NUMBER=10 


value  with   the    following   arithmetic 


dissociates  the  variable  from  statement  100.  The  variable  can  no 
longer  be  used  in  an  assigned  GO  TO  statement,  but  has  the  arithmetic 
value  10. 

Examples : 

Valid 

ASSIGN  10  TO  NSTART 

ASSIGN  99999  TO  KSTOP 

Invalid/Explanation 

ASSIGN  250  TO  ERROR       (variable  must  be  integer) 
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Statements  are  normally  executed  in  the  order  in  which  they  are 
written.  However,  you  may  interrupt,  normal  program  flow  to  transfer 
control  to  another  section  of  the  program  or  to  a  subprogram. 

You  can  use  control  statements  to  transfer  control  to  r  point  within 
the  same  program  unit  or  to  another  program  unit.  Control  statements 
also  govern  iterative  processing,  suspension  of  program  execution,  and 
program  termination. 

The  control  statements  are: 

•  GO  TO  statement  —  transfers  control  within  i  program  unit 

•  IF    statement  —  conditionally    tra-  fers    control    or 
conditionally  executes  a  statement 

•  DO  statement  —  specifies  iterative  processing  of  a     specified 
group  of  statements  a  specified  number  of  times 

•  CONTINUE  statement  --  transfers  control  to  the  next  executable 
statement 

•  CALL  statement  -  •  transfers  control  to  a  subprograiB 

•  RETURN  statement  -■-  returns  control  from  a  subprogram   to   the 
calling  program  unit 

•  PAUSE  statement  —  temporarily  yuspends  progr&ro  execution 

•  STOP  statement  —  terminates  program  execution 

•  END  statement  --  marks  the  end  of  a  program  unit 

The  following  sections  describe  thase  statements,  giving  their  forms 
and  examples  of  the  wave  in  which  they  are  used. 
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4.1   GO  TO  STATBMBNTS 


GO  TO  statements  transfer  control  within  e    program   unit 
types  of  GO  TO  statements  are: 

•  Unconditional  GO  TO  statement 

•  Computed  GO  TO  statement 

•  Assigned  GO  TO  statement 


The   three 
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4.1.1  Dnconditional  GO  TO  StatMwnt 


The  unconditional  GO  TO  statement   transfers  control   to  the  same 
statement  every  time  it  is  executed. 

The  unconditional  GO  TO  statement  has  the  £orm: 

GO  TO  s  ,  ■■  '   '  .  . 


A  Statement  label. 

The  statement  identified  by  s  must  be  an  executable  statement   in  the 
same  program  unit  as  the  GO  TO  statement. 

Examples: 

■  '-^       .,  ■*-: 
GO  TO  7734 

-, ,  /■■  ,    -    /■,  -,■■  ,..i,   :.,:  J-:.         .,.■:.■„/■■'■_:. 

GO  TO  99999  ^      * 


4.1.2  Coaputed  GO  TO  StatesMnt 

The  computed  GO  TO  statement  transfers  control  to  a  statement 
specified  by  the  value  of  an  arithmetic  expression. 

GO  TO  (slist)  t ,)  e 

slist 

A  list,  called  the  transfer  -list,   of  one  or  more   labels  of 
executable  statements  separated  by  commas. 

• 

An  arithmetic  expression  whose  value  is  in   the   range  1   to  n, 
where  n  is  the  number  of  statement  labels  in  the  transfer  list. 

The  computed  GO  TO  statement  evaluates  e  and,  if  necessary,  converts 
the  result  to  integer  data  type.  Control  is  transferred  to  the 
statement  label  in  position  e  in  the  transfer  list. 

If  the  value  of  e  is  less  than  1  or  greater  than  the  number  of  labels 
in  the  transfer  list,  control  is  transferred  to  the  first  executable 
statement  after  the  computed  GO  TO. 

Examples: 

GO  TO  (12,24,36) , INDEX 

GO  TO  (320,330,340,350,360),  SITU(J,K)+1 

In  the  first  example,  if  INDEX  has  a  value  of  2,  execution  will  be 
transferred  to  statement  24.  In  the  second  example,  if  SITU (J, K)  has 
a  value  of  2,  execution  will  be  transferred  to  statement  340. 


4.1.3  Assigned  GO  TO  Statement 

The  assigned  GO  TO  statement  transfers  control  to  a  statement  label 
placed  in  a  variable  by  an  ASSIGN  statement.  Thus,  the  transfer 
destination  can  be  changed,  depending  on  the  most  recently  executed 
ASSIGN  statement. 
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The  assigned  GO  TO  statement  has  the  following  form: 
GO  TO  v[ (,)  (slist) J 


An  integer  variable. 


■  list 

A  list  of  one  or  mote    labels  of  executable  state«ent8   separated 
by  cosnas. 

The  assigned  GO  TO  statement  transfers  control  to  the  statement  whose 
label  was  aost  recently  assigned  to  the  variable  v.  See  Section  3.3 
on  the  ASSIGN  stateaient. 


The  GO  TO  statement,  the  .s&ociated  ASSIGN  statement (s) ,  and  the 
statements  to  which  control  is  transferred  must  be  executable 
statements  in  the  same  progran  unit.  If  slist  is  used,  the  assigned 
value  of  v  must  be  a  member  of  «list. 

Exjusples  of  assigned  GO  TO  statements  are: 


ASSIGN  200  TO  I GO 

GO  TO  IGO 

(This  example  is  equivalent  to  QO  TO  200.) 

ASSIGN  450  TO  IBEG 

GO  TO  IBEG,  (300.450,1000,25) 

(This  example  ;s  equivalent  to  GO  TO  450.) 


IF 


4.2   IP  STATBHBHTS 


An  IP  statement  transfers  control  or  executes  a  statement   only   if 
specified  condition  is  met.   The  two  types  of  IP  statements  are: 


Arithmetic  IP  stat 
Logical  IP  stat4 


nt 


»nt 


Por  each  type,  the  decision  to  transfer  control  or  to  execute  the 
statement  is  based  on  the  evaluation  of  an  expression  contained  in  the 
IP  statMBent. 


4.2.1   Arithmetic  IP  Statement 


The   arithmetic   IP   stateetent   transfers   control   to  one   of   tftri 
statements,  based  on  the  value  of  an  aritnmetic  expression. 


The  arithmetic  IP  ctateiiertt  hes  th«  fQllewmg  fore: 

tr  (•?  tt.  t2,  si 


An  arithmmtle  •■press ion. 

•I,s2,s3 

Labels  of  •■•eatable  ststements  in  the  same  pro9rsm  unit 


«-J 
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All  three  labels  (sl,82,s3)  are   required;    however,   they   need   not 
refer  to  three  different  statements. 


The  arithaetic  IF  statenent  first   evaluates   the  expression   (*>   in 
parentheses.   Then, 


Control  passes  to: 
Label  si 
Label  s2 
Label  S3 


If  e  is: 

Less  than  0 

Bqual  to  0 

Greater  than  0 

Soae  exaaiples 

IP  (THETA-CHI)  50,50,100 

This  statement  transfers  control  to  statement  50  if  the  real  variable 
THETA  18  less  than  or  equal  to  the  real  variable  CHI.  Control  passes 
to  stateawnt  100  only  if  THETA  is  greater  than  CHI. 

IF  (NUMBER/2*2-NUMBER)  20,40,20 

This  statement  transfers  control  to  statement  40  if  the  value  of  the 
integer  variable  NUMBER  is  even;  it  transfers  control  to  statement  20 
if  the  value  is  odd. 


4.2.2  Logical  IP  Stat 


nt 


The  logical  IF   statement   conditionally   executes   a   single   FORfRAM 
statement  based  on  the  evaluation  of  a  logical  expression. 

The  logical  IF  statement  has  the  following  form: 

IP  (e)  st 


A  logical  expression. 

■t 

A  complete  FORTRAN  statement.  The  statement  can  be  any 
executable  statement  except  a  DO  statement,  an  END  statement,  or 
another  logical  IF  statement. 

The  logical  IF  statement  first  evaluates  the  logical  expression  (e) . 
If  the  value  of  the  expression  is  true,  the  statement  (st)  is 
executed.  If  the  value  of  the  expression  is  false,  control  transfers 
to  the  next  executable  statement  after  the  logical  IF  and  the 
statement  (st)  is  not  executed.  Note  that  e  must  yield  a  logical 
value. 

Examples  of  logical  IF  statements  are: 

IP  (J  .GT.   4  .OR.   J  .LT.   1)  GO  TO  250 


IP  (RBP{J,IC)  .NE.   HOLD)  REF(J,K)  •  RlBF(  J  ,  R)  •  (-1 .  5D0) 

LOGICAL  ENDRUN 

IF  (ENORUN)  CALL  fcXIT 
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DO 


4.3   DO  STATEMENT 


The  DO  statement  specifies  iterative  processing  of  a  sequence  of 
statements.  The  sequence  of  statements  is  called  the  range  of  the  DO 
statement,  and  the  DO  statement  together  with  its  range  is  called  a 
"DO  loop." 

The  DO  statement  has  the  following  form: 

DO  s[,)   v»el,e2{,e3] 


The   label   of   an  executable   statement, 
physically  follow  in  the  same  program  unit, 


The   statement   must 


An  integer  variable. 

el,e2,e3 

Integer  expressions. 

The  variable  v  is  called  the  control  variable; 

initial,   terminal,   and   increment   parameters,  respectively.   If  you 

omit  the  increment  parameter,  a  default  increment  value  of  1  is  used. 


e2,  and  e3  are  the 


s  identifies  the  terminal  statement  of   the  DO   loop, 


The  terminal 


statement  must  not  be; 


•  A  GO  TO  statement 


•  An  arithmetic  IF  statement 


An  END  statement 


•  A  RETURN  statement 


•  A  DO  statement 


The  range  of  the  DO  statement  is  all  the  statements  that  follow  the  DO 
statement,  up  to  and  including  the  terminal  statement. 

The  DO  statement  first  evaluates  the  expressions  el,  e2,  and  e3  to 
determine  values  for  the  initial,  terminal,  and  increment  parameters, 
respectively.  The  value  of  the  initial  parameter  is  assigned  to  the 
control  variable.  The  executable  statements  in  the  range  of  the  DO 
loop  are  then  executed  repeatedly.  The  exact  mechanism  is  explained 
in  Section  4.3.1. 


If  the  increment  parameter  (e3)  is  positive,  the  terminal  parameter 
(•2)  must  be  greater  than  or  equal  to  the  initial  parameter  (el). 
Conversely,  if  e3  is  negative,  e2  must  be  less  than  or  equal  to  el. 
The  increment  parameter  (e3)  cannot  be  0. 
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The  number  of  executions  of  the  DO  range,  called  the  iteration  count, 
is  given  by: 


[^] 


+1 


where  [X]  means  the  greatest  integer   in  X,   that   is,   the  greatest 
integer  less  than  the  absolute  value  of  X  and  with  the  same  sign. 

If  the  iteration  count  is  0  or  negative,  the  DO  loop  is  executed  once. 


4.3.1  DO  Iteration  Control 

After  each  execution  of  the  DO  range,  the  following  actions  are  taken: 

1.  The  value  of  the  increment  parameter  is  algebraically  added 
to  the  control  variable. 

2.  The  iteration  count  is  decremented  by  1. 

3.  If  the  iteration  count  is  greater  than  0,  control  transfers 
to  the  first  executable  statement  after  the  DO  statement  for 
another  iteration  of  the  range. 

4.  If  the  iteration  count  is  0,  execution  of  the  DO  statement 
terminates. 

You  can  also  terminate  execution  of  a  DO  statement  by  using  a 
statement  within  the  range  that  transfers  control  outside  the  loop. 
The  control  variable  of  the  DO  statement  remains  defined  with  its 
current  value. 

When  execution  of  a  DO  loop  terminates.  If  other  DO  loops  share  its 
cerminal  statement,  control  transfers  outward  to  the  next  outer  DO 
loop  in  the  DO  nesting  structure  (see  Section  4.3.2).  If  no  other  DO 
loop  shares  the  terminal  statement,  or  if  this  DO  loop  is  outermost, 
control  transfers  to  the  first  executable  statement  after  the  terminal 
statement. 

You  cannot  alter  the  value  of  the  control  variable  within  the  range  of 
the  DO  loop.  However,  you  can  reference  the  control  variable  for 
other  purposes  in  statements  within  the  range. 

The  range  of  a  DO  statement  can  contain  other  DO  statements,  as  long 
as  these  nested  DO  loops  meet  certain  requirements.  See  Section 
4.3.2. 


You  cannot  transfer  control  into  the  range  of  a  DO   loop, 
to  this  rule  are  described  in  Sections  4.3.3  and  4.3.4. 

Examples  of  DO  statements  follow. 

Valid 

DO  100  K-1,50,2 


Exceptions 


This  statement  specifies   25   iterations; 
iteration. 

DO  350  J-50,-2,-2 


K»49   during   the   final 
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This  statement   specifies   27   iterations;    J«-2   during   the   final 
iteration. 

DO  25  IVAR=1,5 

This  statement   specifies   5   iterations;    IVAR«5   during   the   final 
iteration. 

Invalid/Explanation 

DO  NUMBER»5,40,4         (the  Statement  label  is  missing) 


DO  40  M«2.10 


(a  decimal  point  has  been   typed   for   a 
comma) 


Note  that  in  the  last  invalid  example,  the  statement 

DO40M  «  2.10 
is  an  unintentionally  valid  arithmetic  assignment  statement. 

4.3.2  Nested  DO  Loops 

A  DO  loop  can  include  one  or  more  complete  DO  loops.  The  range  of  an 
inner-nested  DO  loop  must  lie  completely  within  the  range  of  the  next 
outer  loop.  Nested  loops  can  share  a  terminal  statement.  Figure  4-1 
illustrates  nested  loops. 


Correctly  Nested 
DO  Loops 

Inco 

rrectly  Nested 
DO  Loops 

DO  45  K-1,10 

• 

p 

DO  15  K»l,10 

• 

• 

DO  35  L«2,50,2 

• 
• 

.  35  CONTINUE 

• 

• 

DO  45  M«l,20 

• 

15 

• 

DO  25  L*l,20 

• 
• 

CONTINUE 

• 
• 

DO  30  M»l,15 

• 

- 

• 

>  45  CONTINUE 

25 

• 

CONTINUE 

• 

»  30 

• 

CONTINUE 

Figure  4-1:   Nested  DO  Loops 


4.3.3  Control  Transfers  in  DO  Loops 

Mithin  a  nested  DO  loop,  you  can  transfer  control  from  an  inner  loop 
to  an  outer  loop;  however,  a  transfer  from  an  outer  loop  to  an  inner 
loop  is  not  permitted. 
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If  two  or  mote  nested  DO  loops  share  the  same  terminal  statement,  you 
can  transfer  control  to  that  statement  only  from  within  the  range  of 
the  innermost  loop.  Since  the  shared  terminal  statement  is  part  of 
the  innermost  loop,  any  transfer  to  the  terminal  statement  from  an 
outer  loop  is  an  invalid  transfer. 


o 


4.3.4   Extended  Range 

A  DO  loop  has  an  extended  range  if  it  contains  a  control  statement 
that  transfers  control  out  of  the  loop  and  if,  after  execution  of  one 
or  more  statements,  another  control  statement  returns  control  back 
into  the  loop.  Thus,  the  range  of  the  loop  is  extended  to  include  all 
executable  statements  between  the  destination  statement  of  the  first 
transfer  and  the  statement  that  returns  control  to  the  loop. 

The  following  rules  govern  the  use  of  a  DO  statement  extended  range: 


1.  A  transfer  into  the  range  of  a  DO  statement  is  permitted  only 
from  its  extended  rangv?. 

2.  Statements  in  the  extended  range  must  not  change  the   control 
variable. 


Figure  4-2   illustrates   valid   and   invalid   extended   range  control 
transfers . 


Valid 
Control  Transfers 


DO 
Loop 


Extended 
Range 


GO  TO  30 


Invalid 
Control  Transfers 


GO  TO  20- 


Pigur*  4-2:   Control  Transfers  and  Extended  Range 


• 
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CONTINUE 


4.4   CONTINUE  STATEMENT 

The  CONTINUE  statement  transfers  control  to  the  next  executable 
statement.  It  is  used  primarily  as  the  terminal  statement  of  a  DO 
loop  when  that  loop  would  otherwise  end  with  a  prohibited  control 
statement  such  as  a  GO  TO  or  arithmetic  IF. 

The  CONTINUE  statement  has  the  following  form: 
CONTINUE     ,     .       .      '^  :   .. 


CALL 


4.5   CALL  STATEMENT 

The  CALL  statement  executes  a  SUBROUTINE  subprogram  or  other  external 
procedure.  It  can  also  specify  an  argument  list  for  the  subroutine. 
(See  Chapter  6  for  the  greater  detail  on  the  definition  and  use  of  a 
subroutine) . 

The  CALL  statement  has  the  following  form: 

CALL  s[([al  I, la]]...)] 


The  name  of  a  SUBROUTINE  subprogram  or  other  external  procedure; 
or  a  dummy  argument  associated  with  a  SUBROUTINE  subprogram  or 
other  external  procedure. 


An  actual  argument.   (Section  6.1  describes  actual  arguments.) 

If  you  specify  an  argument  list,  the  CALL   statement   associates  the 

values   in   the   list   with  the  dummy  arguments  in  the  subroutine.  It 

then  transfers  control  to  the  first  executable  statement  of  the 
subroutine. 

The  arguments  in  the  CALL  statement  must  agree  in  number,  order,  and 
data  type  with  the  dummy  arguments  in  the  subroutine.  They  can  be 
variables,  arrays,  array  elements,  constants,  expressions,  Hollerith 
constants,  alphanumeric  literals,  or  subprogram  names.  An 
unsubsccipted  array  name  in  the  argument  list  refers  to  the  entire 
array. 

Examples  of  CALL  statements  are: 

CALL  CURVE  (BASE  ,  3  .  14  159-»-X,  Y,  LIMIT,  R  (LT  +  2)  ) 

CALL  PNTOUT  (A,N,«ABCD') 

CALL  EXIT 
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RETURN 


4.6   RBTORN  STATBMBNT 

The  RETURN  statement  is  used  to  return  control  from  a  subprogram  to 
the  calling  program.   It  has  the  following  form: 

RETURN 

When  a  RETURN  statement  is  executed  in  a  function  subprogram,  control 
is  returned  to  the  statement  that  contains  the  function  ref4<rence  (see 
"Chapter  6).  When  a  RETURN  statement  is  executed  in  a  subroutine 
subprogram,  control  is  returned  to  the  ficat  executable  statement 
following  the  CALL  statement. 


RETURN  statesMnt  example: 

SUBROUTINE  SIZCHK  (N,K) 

IP  (N)  10,2C,30 
10    K--1 

RETURN 
20    K-0 

RETURN 
30    K-*l 

RETURN 

END 


PAUSE 

4.7   PAUSE 

The   PAUSE   statement   temporarily   suspends   program   execution    and 
displays  a  message  on  i.he  terfcinal  to  permit  you  to  take  some  action. 

The  PAUSE  statement  has  the  following  form: 

PAUSE   (disp! 


An  alphanumeric  literal,  a  Jectma.  digit  string  of   one 
digits,  or  •n   octal  constant. 


to 


X1V4 


The  disp  argument  is  optional.  The  effect  of  a  PAUSE  statement 
depends  on  how  your  program  is  being  executed.  If  it  is  running  as  a 
batch  job,  the  content*  of  disp  are  written  to  the  system  output  file 
but  the  prc»gram  i«  not  suspended. 

If  the  program  is  runt.ing  \n  interactive  -sode,  tne  contents  of  disp 
are  displayed  at  yovir  terminal,  followed  by  the  prompt  sequence 
in^fiicating  that  the  program  is  suspended;  you  should  then  enter  a 
control  command,  after  which  execution  reswimes  with  the  first 
executable  statement  folloi«ing  the  PAUSE.  Because  tne  command  is 
spmctfic  to  the  oper  •'ing  system,  it  is  not  given  here. 

Some  examples  of  PAUSE  s^ate.ients  are: 

PAUSE     999 

PAUSE     'MOUNT  NEXT  TAPE' 
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STOP 


4.8   jITOP  STATEMENT 


The  «?TOP  statenent  terainates  program  execution  and  returns  control  to 
the  operating  systea. 

The  STOP  state   nt  has  the  following  fora: 

STOP  (disp) 

diap 

An  alphanumeric  literal,  a  decimal  digit  string  of   one   to   five 
digits,  or  an  octal  constant. 

The  disp  argument,  if  present,  specifies  a   message   to   be  displayed 
when  execution  stops. 

Example  o'  <;top  statements  are: 

STOP  98 

stop  'END  Oi  RUN* 

STOP 


END 


4.9   BaO  STATBHIMT 


The  END  statement  marks  the  end  of  a  program  unit.  It  must  be  the 
last  source  line  of  every  program  unit. 

The  END  statement  has  the  following  form: 

END 

The  EMD  statement  must  not  occur  on  a  continuation  line  or  be 
continued. 

In  a  main  program,  if  no  STOP  statement  prevents  execution  from 
reaching  the  END  statement,  program  execution  terminates.  In  a 
subprogram,  a  RETURN  statement  is  implicitly  executed. 
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SPECIFICATION  STATEMENTS 


Specification  statements  are  nonexecutable  statements  that  let  you 
allocate  and  initialize  variables  and  arrays,  and  defi.ie  other 
characteristics  of  the  symbolic  names  used  in  the  program. 

The  specfication  statements  are: 

•  IMPLICIT  statement  —  specifies  the  implied  data  type  of 
symbolic  names 

•  Type  declaration  statement  --  explicitly  declares  the  data 
type  of  specified  symbolic  names 

•  DIMENSION  statement  --  declares  the  number  of  dimensions  in  an 
array  and  the  number  of  elements  in  each  dimension 

•  COMMON  statement  --  reserves  one  or  more  contiguous  areas  of 
storage 

•  VIRTUAL  statement  --  reserves  space  for  one  or  more  arrays  to 
be  located  outside  normal  program  storage 

•  EQUIVALENCE  statement  —  associates  two  or  more  entities  with 
the  same  storage  location 

•  EXTERNAL  statement  --  declares  the  specifed  symbolic  names  to 
be  external  procedure  names 

•  DATA  statement  —  assigns  initial  values  to  variables,  arrays, 
and  array  elements  before  program  execution 

•  PROGRAM  statement  --  assigns  a  symbolic  name  to  a  main  program 
un  i  t 

•  BLOCK  DATA  statement  —  establishes  a  BLOCK  DATA  progra,fl  unit 
in  which  initial  values  may  be  assigned  to  entities  contained 
in  common  blocks 

The  following  sections  describe  these  statements,  giving  their  forms 
and  examples  of  their  usage. 


IMPLICIT 


S.l   IMPLICIT  STATEMENT 

By  default,  all  names  beginning  with   the   letters   I   through  K      are 
interpreted   as   integer   data,  and  all  names  beginning  with  any  other 
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letter  are  interpreted  as  real.   The  IMPLICIT  statement  permits  you  to 
change  these  default  data  typing  rules. 

The  IMPLICIT  statement  has  the  following  form: 

IMPLICIT  typ(a[,al ...)  [,typ(a[,a] .. .) 1  ... 


typ 


One  of  the  data  type  specifiers.   (See  Table  2-2.) 


An  alphabetic  specification  in  one  of  two  forms:  c  or  cl-c2, 
where  c  is  an  alphabetic  character.  The  latter  form  specifies  a 
range  of  letters,  from  cl  through  c2,  which  must  occur  in 
alphabetical  order. 

The  IMPLICIT  statement  assigns  the  specified  data  type  to  all  symbolic 
names  that  begin  with  any  specified  letter,  or  any  letter  in  a 
specified  range,  and  which  have  no  explicit  data  type  declaration. 
For  example. 

IMPLICIT  INTEGER  ( I , J, K, L,M,N) 
IMPLICIT  REAL  (A-H,  0-Z) 

These  statements  specify  the  default  in  the  absence  of  any  explicit 
statement. 

IMPLICIT  statements  must  precede  all  other  specification  statements, 
and  all  executable  statements. 

You  cannot  label  IMPLICIT  statements. 

Any  data  type  can  be  specified  in  an  IMPLICIT  statement,  as  the 
following  examples  show: 

IMPLICIT  DOUBLE  PRECISION  (D) 

IMPLICIT  COMPLEX  (S,Y),  L0GICAL*1  (L,A-C) 


TYPE  DECLARATION 


5.2   TYPE  DECLARATION  STATEMENTS 


\ 


The  type  declaration   statement   explicitly  gives   a   data   type   to 
specified  symbolic  names. 

The  type  declaration  statement  has  the  following  form: 

typ  vl ,vl  . .. 

typ 

One  of  the  data  type  specifiers  (see  Table  2-2). 


The  symbolic  name   of   a   variable,   array,   statement   function, 
function  subprogram,  or  an  array  declarator. 

The  following  rules  apply  to  a  type  declaration  statement; 

•  A  type  declaration  statement   must   precede   all   executable 
statements. 

•  You  can  declare  the  data  type  of  a  symbolic  name  only  once. 
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•  You  cannot  label  a  type  declaration  statement. 

•  You  can  use  a  type  declaration  statement  to  declare  an  array 
by  appending  an  array  declarator  (see  Section  2.5.1)  to  an 
array  name. 

A  symbolic  name  can  be  followed  by  a  data  type  length  specifier  of  the 
form  *s,  where  s  is  one  of  the  acceptable  lengths  for  the  data  type 
being  declared  (see  Table  2-2).  Such  a  specification  overrides  the 
length  attribute  that  the  statement  implies,  and  assigns  a  new  length 
to  the  specified  item.  If  you  specify  both  a  data  type  length 
specifier  and  an  array  declarator,  the  data  type  length  specifier  goes 
first.   Examples  of  type  declaration  statements  are: 

INTEGER  COUNT,  MATRIX (4,4),  SUM 
REAL  MAN,IABS 
LOGICAL  SWITCH 

INTEGER*2  Q,  M12*4,  IVEC*4(10) 
REAL*  WXl,  WX3*4,  WX5,  WX6*8 


DIMENSION 


5.3   DIMENSION  STATEMENT 

The  DIMENSION  statement  specifies  the  number  of  dimensions  in  an  array 
and  the  number  of  elements  in  each  dimension. 

The  DIMENSION  statement  has  the  following  form: 

DIMENSION  a(d) [,a(d) ] ... 

a(d) 

An  array  declarator  (see  Section  2.5.1). 

The  symbolic  name  of  an  array. 

A  dimension  declarator. 

The  DIMENSION  statement  allocates  one  storage  element  to  each  array 
element  in  each  dimension  of  each  array.  The  data  type  of  the  array 
determines  the  length  of  a  storage  element.  Moreover,  the  total 
number  of  storage  elements  assigned  to  an  array  is  equal  to  the 
product  of  its  dimension  declarators.   For  example: 

DIMENSION  ARRAY(4,4),  MATRIX ( 5 , 5, 5) 

This  statement  defines  ARRAY  as  having  16  real  elements  of  4  bytes 
each,  and  defines  iwATRIX  as  having  123  integer  elements  of  2  bytes 
each . 

You  can  also  use  array  declarators  in  type  declaration,  COMMON,  and 
VIRTUAL  statements.  However,  in  each  program  unit,  you  can  use  an 
array  name  in  only  one  array  declarator. 

You  cannot  label  DIMENSION  statements. 
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Examples  of  DIMENSION  statements  are: 

DIMENSION  BUD (12 p 24, 10) 
DIMENSION  X(5,5,5) ,Y(4,85) ,Z(100) 
DIMENSION  MARK(4,4,4,4) 

For  further  information  on  arrays  and  on  storing  array  elements,   see 
Section  2.5. 


5.4   COMMON  STATEMENT 

A  COMMON  Statement  reserves  one  or  more  contiguous  blocks  of  storage. 
A  symbolic  name  identifies  each  block;  however,  you  can  omit  a 
syvabolic  name  for  the  blank  common  block  i  a  program  unit.  COMMON 
statments  also  specify  tiie  order  of  variables  and  arrays  in  each 
common  block. 

The  COMMON  statement  has  the  following  form: 

COMMON  l/(cbl/)  nlist[  l,l/[cbl/  mist]... 

cb 

A  symbolic  name,  called  a  common  block  name,   cb  can   be   blank. 
If  th ;  first  cb  is  blank,  you  can  omit  the  first  pair  of  slashes. 

nlist 

A  list  of  variable  names,   array   names,   and   array  declarators 
separated  by  commas. 

A  common  block  name  can  be  the  same  as  a  variable  or  array  name, 
flowever,  it  cannot  be  the  same  as  a  function  name  oi  subroutine  name 
in  the  executable  program  (see  Section  2.1), 

When  you  declare  common  blocks  of  the  same  name  in   different   program 

units,   these  names  are  .ill  a3SOciated  with  the  same  storage  area  when 

the  otogram  units  are  combined  into  an  executable  program.  For 
example: 

PROGRAM  MAIN 
COMM0N/BLOCKl/ICO0N,rHOt,/BLOCK2/ICHK 


CALL  GSUG 


END 


SUBROUTINE  GSUB 

COMMON /BL0CK2/JCHK  (  i  0  )  /BLCv, Kl/JCOUN ,  JHOL 


END 

In   h€   <air.ple,  BLOCKl  in  MAIN  and  BLOCKl  in  GSUB  are  associated  with 
th«  ««««  atortige  «i;ea,  as  az9   the  BL0CIK2a. 

You  c*n  htifit   only  on«  blank  common  block  in  an  Axecutable  program,  but 
you  can  have  any  number  of  n^megi  coounon  blocks. 
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Entities  are  assigned  storage  in  common  blocks  on  a  one-for-one  basis. 
In  the  above  example,  ICOUN  and  JCOUN  are  associated  with  the  same 
storage  apace  in  BLOCKl  because  they  each  occur  first  in  the  list. 


Entities  assigned  by  a  COMMON  statement  in  one  program  unit  should 
agree  in  data  type  with  entities  placed  in  one-to-one  correspondence 
with  them  in  the  same  common  block  by  another  program  unit.  For 
example,  if  one  program  unit  contains  the  statement. 

COMMON  CENTS 
and  another  program  unit  contains  the  statement 

INTEGER*2  MONEY 
COMMON  MONEY 

incorrect  results  may  occur  when  these  program  units  are  combined  into 
an  executable  program  because  the  2-byte  integer  •  iriac^e  MOMEY  is 
made  to  correspond  to  the  high-order  2  bytes  of  tr.  real  vaiiable 
CENTS. 

You  must  not  assign  LOGICAL*!  or  (BYTE)  variables  or  arrays  to  a 
common  block  in  such  a  way  that  subsequent  data  of  any  other  type  is 
allocated  on  an  odd  byte  boundary.  The  compiler  supplies  no  f.ller 
space  for  common  blocks;  however,  all  cor-  n  block  are  allocated 
beginning  on  a  word  (even  byte)  boundary. 


Examples  of  COMMON  statements  follow. 
Main  Progran 
COMMON  HEAT,X/BLK1/KIL0,Q 

CALL  FIGURE 


* 
» 


Subprogram 

SUBROUTINE  FIGURE 

COMMON  /BLK1/LIMA,R/  /ALFA, BET 


RETURN 
END 


The  COMMON  statement  in  the  main  program  puts  HEAT  and  X  in  the  blank 
common  block,  and  puts  KILO  and  Q  in  a  named  common  block,  BLKl.  The 
COMMON  statement  in  the  subroutine  makes  ALFA  and  BET  correspond  to 
HEAT  and  X  in  the  blank  common  block,  and  makes  LIMA  and  R  correspond 
to  KILO  and  Q  in  BLKl. 

Valid  Osage 

LOGICAL*!  CHARS (9) 
COMMON/STRING/ I L EN, CHARS 

Invalid  Osage 

LOGICAL*!  CHARS (9) 
COMMON/STRING/CHARS, ILEN 

In  the  second  example,  the  integer  variable  ILEN  is  allocated  on  an 
odd  byte  address. 
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VIRTUAL 


5.5   VIRTUAL  STATEMENT 

A  virtual  array  is  an  array  whose  storage   is   allocated   in   physical 
■ain  fflemory  outside  of  the  program's  directly  addressable  main  memory. 
The  use  of  virtual  arrays  in   a   program   trees 
fflemory  for  executable  code  and  other  data  storage. 


direc'.lv  addressable 


The  VIRTUAL  otateme' t  specifies  a  virtual   array, 
number   of   dimensions,   and  the  number  of  elements 
The  VIRTUAL  statement  has  the  following  form: 


It   specifies   the 
in  each  dimension. 


«(d) 


VIRTUAL  a(i)  I,a(d) ] . .. 

An  array  declarator  (see  Section  2.S.1). 

The  symbolic  nasK*  of  an  array. 

A  dimension  declarator. 


The   maximum   total 
program^t   executing 
bytes.   An  array  can 
bytes   per   eleewnt. 
would  require  32,7«7 
of  8  bytes  per  element 
requirement  far  oeyond 


directly   addressable^   space   available   to   user 

or.   a   POP-li   faaily   cor^uter  is  64K,  or  65,536 

have  a  maximum  of  32*767  elesMnts  of  frota  1  to   8 

A  maximum  LOGICAL* 1  array  of  1  oyte  p«r  eleaent 

bytes  of  storage  space.   A  maximum  CON'^'.EX  array 

would  require  262,136  bytes  of  storage  space,  a 

the  64K  Mmit  on   directly-addressable  meaory. 


Virtual  arrays  are  placed  in  external  main  meaory  without 
significantly  diminishing  the  64K  of  directly-addressable  meaiory 
available  to  programs. 


MOTE 

Virtual  arrays  are  not  supported 
POP-il    operating    systems. 
appropriate   POP-U   FORTRAN   IV 
guide  for  more  information. 


on 


all 
the 
user's 


BsMsples: 

VIRTUAL  A (1000),  LARG(180, ItO) ,  MOLT  (4,4,4,4,4,4,4) 

The  above  example  defines  a  one-diSMnsional  array  named  A  having  1000 
elements,  a  two-Jimensional  array  named  LARG  having  32400  elesMnts, 
and  a  seven-diiMrnsional  array  named  NULT  having  16  384  elements. 

The  data  type  of  a  virtual  array  is  specified  in  the  seme  way  as  the 
data  type  of  any  other  variable  or  array,  that  is,  either  implicitly 
according  to  the  first  letter  of  the  nasM  or  eiplicitly  in  a  type 
declaration  statement. 

For  further  information  concerning  arrays  and  theic  storage,  see 
Section  2.5. 
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S.S.I  Restrictions  on  ths  Oss  of  Virtual  Arrays 

The  naaies  of  virtual  arrays  and  virtual  array  eleaents   must   not   be 
ised  in  soiae  contexts: 


1.  k  virtual  array  nane  must  not  be  used  in  a  COMMON  statement 
(Section  5.4) . 

2.  The  naae  of  a  virtual  array  or  virtual  array  element  must  not 
be  used  in  an  EQUIVALENCE  statement  (Section  5.6). 

3.  A  virtuffl  array  or  virtral  array  element  cannot  be  assigned 
an  initial  value  by  a  DATA  statement  (Section  5.8). 

4.  Virtual  arrays  cannot  be  used  to  contain  run-time  format 
specifications  (Section  8.6).  The  name  of  a  virtual  array  or 
virtual  array  element  must  not  appear  as  a  format  specifier 
in  an  I/O  statement. 

5.  The  name  of  a  virtual  array  or  virtual  array  element  must  not 
be  specified  as  the  buffer  argument  (third  argument  inside 
parentheses)  of  an  ENCODE  or  DECODE  statement  (Section  7.6). 

6.  The  name  of  a  virtual  array  element  must  not  be  used  as  an 
actual  argument  to  a  subprogram  if  the  subprogram  assigns  a 
value  to  the  corresponding  dummy  argument  (Section  6.1). 

7.  The  name  of  a  virtual  array  or  virtual  array  element  cannot 
be  used  to  specify  the  NAME  Iceyword  in  an  OPEN  statement 
(Section  9. 1. 13) . 


Examples: 

Valid  Usage 


VIRTUAL  AdOOO)  ,B(2000) 

READd,*)  A 

DO  10,1-1,1000 

B(I)«-A(I)*2 

MRITE(2,*)  (A(I) ,1-1,1000) 

CALL  SUB  (A,B) 


Invalid  Osags 

VIRTUAL  A(10) 

DATA  A(l)/2.5/  (U&ed  in 

COHNON  /X/  A  (Used  in 

EQUIVALENCE   (A(l),y)  (Used  in 

WRITE(1,A)  X,y  (Used  as 

BIICODB(4,100,A(3)  )  X,Y     (Used  as 


DATA  statement) 
COMHON  statement) 
EQUIVALENCE  statement) 
format  specifier) 
ENCODE  output  buffer) 


5.5.2  Virtual  Array  References  in  Subprograaw 

A  dummy  argument  declared  as  a  virtual  array  can  only  become 
associated  with  an  actual  argument  that  is  also  the  name  of  a  virtual 
array. 

An  actual  argument  that  is  o  reference  to  a  virtual  array  element  can 
become  associated  only  with  a  dummy  argument  declared  as  a  simple 
/ariable  (see  Section  2.4).   In  effect,  an  actual  argument  that   is  a 
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virtual  array  element  is  treated  as  an  expression.  Furthermore,  a 
value  must  have  been  assigned  to  the  element  before  it  is  used  as  an 
actual  argument.  The  subprogram  must  not  alter  the  value  of  the 
corresponding  dummy  argument. 

EXAMPLES: 


Valid  Osag* 


10 


VIRTUAL  A(IOOO) ,B(1000) 

B(3)=0.5 

CALL  SCALE(A,1000,B(3) ) 

END 

SUBROUTINE  SCALE  (X,N,W) 

VIRTUAL  X(N) 

S*0 

DO  10,  I«1,N 

S=S+X(I)*W 

TYPE  *•  ,S 

END 


Invalid  Osage 

VIRTUAL  A(IOOO) 

REAL  B(4000) 

CALL  ABC(A,B,A, (3) ) 

END 

SUBROUTINE  ABC(X,Y,Z) 
REAL  X(IOOO) 
VIRTUAL  y(4000) 
Z«2.3 
END 


(Actual  argument  is  virtual) 

(Actual  argument  is  nonvirtual) 

(Actual  argument  is  virtual  array 
element) 


EQUIVALENCE 


5.6   EQOIVALENCE  STATEMENT 

The  EQUIVALENCE  statement  partially  or  totally  associates  two  or  more 
entities  in  the  same  program  unit  with  the  same  storage  location. 

The  EQUIVALENCE  statement  has  the  following  form: 

EQUIVALENCE  (nlist)  [ , (nlist) ]  .  . . 

nlist 

A  list  of  variables,  array  elements,   and   arrays   separated   by 
commas.   You  roust  specify  at  least  two  entities  in  each  list. 

The  EQUIVALENCE  statement  allocates  all  of  the  entities  in  each   list 
beginning  at  the  same  storage  location. 

In  an  EQUIVALENCE  statement,  each  expression  in  a  subscript   reference 
must  be  an  integer  constant. 

Dummy  arguments,  virtual  arrays,  and  virtual  array  elements  may  not  be 
used  in  an  EQUIVALLENCE  statement. 
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You  must  not  equivalence  LOGICAL*!  arrays  with  other  elements  in  such 
a  way  that  subsequent  data  of  any  other  type  is  allocated  on  an  odd 
byte  boundary. 


An  array  name  used  in  an  EQUIVALENCE  statement 
element  of  the  array. 


refers   to   the   first 


You  can  equivalence  variables  of  different  numeric  data  types,  such 
that  each  entity  begins  at  the  same  address.  Furthermore,  you  can 
store  multiple  components  of  one  data  type  with  a  single  component  of 
a  higher-ranked  data  type.  For  example,  if  you  make  an  integer 
variable  equivalent  to  a  complex  variable,  t^'^e  integer  variable  shares 
storage  with  the  real  part  of  the  complex  va.  ible. 

Examples  of  EQUIVALENCE  statements  are: 

Valid  Osage 

DOUBLE  PRECISION  DVAR 
INTEGER*2  IARR(4) 
EQUIVALENCE  (DVAR, lARR (1 ) ) 

This  EQUIVALENCE  statement  makes  the  four  elements  of  the  integer 
array  lARR  occupy  the  same  storage  as  the  double  precision  variable 
DVAR. 


Invalid  Osage 


LOGICAL*!  BYTES (10) 
EQUIVALENCE  (ILEN,  BYTS(2)) 

In  the  above  example,  the  integer  variable  ILEN  is  allocated  on  an  odd 
byte  address. 


5.6.1  Making  Arrays  Equivalent 

When  you  make  an  element  of  one  array  equivalent  to  an  element  of 
another  array,  the  EQUIVALENCE  statement  also  sets  equivalences 
between  the  corresponding  elements  of  the  two  arrays.  Thus,  if  the 
first  elements  of  two  equal-sized  arrays  are  made  equivalent,  both 
arrays  share  the  same  storage  space.  If,  for  example,  the  third 
element  of  a  7-element  array  is  made  equivalent  to  the  first  element 
of  another  array,  the  last  five  elements  of  the  first  array  overlap 
the  first  five  elements  of  the  second  array. 

You  must  not  use  the  EQUIVALENCE  statement  to  assign  the  same  storage 
location  to  two  or  more  elements  of  the  same  array.  You  also  must  not 
attempt  to  assign  memory  locations  in  a  way  that  is  inconsistent  with 
the  normal  linear  storage  of  array  elements.  For  example,  you  cannot 
make  the  first  element  of  one  array  equivalent  to  the  first  element  of 
another  array  and  then  attempt  to  set  an  equivalence  between  the 
second  element  of  the  first  array  and  the  sixth  element  if  the  other 
array. 

Some  examples  of  the  use  of  the  EQUIVALENCE  statement  follow. 


DIMENSION  TABLE  (2,2),  TRIPLE  (2,2,2) 
EQUIVALENCE  (TABLE(2,2),  TRI PLE ( 1 , 2, 2) ) 

As  a  result  of  these  statements,  the  entire  array  TABLE  shares  part  of 
the  storage  space  allocated  to  array  TRIPLE.  Figure  5-1  shows  how 
these  statements  align  the  arrays. 
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Array  TRIPLE 


Array  TABLE 


Array 

Element 

Array 

Element 

Element 

Number 

Element 

Number 

TRIPLE(1,1,1) 

1 

TRIPLE{2,1,1) 

2 

TRIPLE(1,2,1) 

3 

TRIPLE(2,2,1) 

4 

TABLE (1,1) 

I 

TRIPLE(1,1,2) 

5 

TABLE(2,1) 

a 

TRIPLE(2,1,2) 

6 

TABLE(1,2) 

3 

TRIPLE(1,2,2) 

7 

TABLE (2,2) 

« 

TRIPLE(2,2,2) 

8 

Figure  5-1:   Equivalence  of  Array  Storage 


The  following  statements  also  align  the  two  arrays  as  shown  in  Figure 
5-1: 

EQUIVALENCE  (TABLE, TRI PLE (2 , 2 , 1 ) ) 
EQUIVALENCE  (TRIPLE ( 1 , 1 , 2 ) ,  TABLE(2,1)) 

In  the  EQUIVALENCE  statement  only,  you  can  identify  an  array  element 
with  a  single  subscript  (that  is,  the  linear  element  number),  even 
though  the  array  was  defined  as  a  multidimensional  array.  For 
example,  the  following  statement  aligns  the  two  arrays  as  shown  in 
Figure  5-1: 

EQUIVALENCE  (TABLE(4),  TRIPLE(7)) 


5.6.2   Extending  Comnon  Blocks 

When  you  make  entities  equivalent  to  other  entities  stored  in  a  common 
block,  the  common  block  can  be  extended  beyond  its  original  boundaries 
to  include  the  entities  specified  in  the  EQUIVALENCE  statement.  But 
you  can  extend  the  common  block  only  beyond  the  last  element  of  the 
previously  established  common  block.  You  cannot  extend  the  common 
block  in  such  a  way  as  to  place  the  extended  portion  before  the  first 
element  of  the  existing  common  block.  The  following  examples  show 
valid  and  invalid  extensions  of  the  common  block: 

Valid 


DIMENSION  A(4) ,B(6) 

COMMON  A 

EQUIVALENCE  (A(2),B(1)) 


A(l) 


A(2) 


B(l) 


A(3) 


B(2) 


A(4) 


B(3) 


B(4) 


:^ 


B(5) 


B(6) 


Existing 
Common 


Extended 
Portion 


Invalid 

DIMENSION  A(4) ,B(6) 

COMMON  A 

EQUIVALENCE  (A(2),B(3)) 


B(l) 


A(l) 


B(2) 


A(2) 


B(3) 


A(3) 


B(4) 


A(4) 


B(5) 


B(6) 


Extended 
Portion 


Existing  Common 


Extended 
Portion 


If  you  assign  two  entites  to  common   blocks,   you   cannot  make   them 
equivalent  to  each  other. 
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EXTERNAL 


5.7   EXTERNAL  STATEMENT 

The  EXTERNAL  statement  lets  you  use  external  procedure  names  as  actual 
arguments  to  other  subprograms. 

An  external  procedure  can  be  a  user-supplied  function  or  subroutine 
subprogram  (Section  6.2)  or  a  FORTRAN  library  function  (Section  6.3). 

The  EXTERNAL  statement  has  the  following  form: 

EXTERNAL  v  ( ,vl . .. 

The  symbolic  name  of  a  subprogram  or  the  name  of  a  dummy  argument 
associated  with  a  subprogram  name. 

The  EXTERNAL  statement  declares  that  each  name  in  the  list  is  an 
external  procedure  name.  Such  a  name  can  then  appear  as  an  actual 
argument  to  a  subprogram;  the  subprogram  can  use  the  associated  dummy 
argument  name  in  a  function  reference  or  CALL  statement. 

Note,  however,  that  a  complete  function  reference  used  as  an  argument 
(for  example,  SQRT(B)  in  CALL  SUBR (A,SORT (B) ,C) )  represents  a  value, 
not  a  subprogram  name.  The  function  name  need  not  be  defined  in  an 
EXTERNAL  statement. 


An  example  of  the  EXTERNAL  statement  is: 
Main  PrograM 


EXTERNAL  SIN,COS, SINDEG 


CALL  TRIG  (ANGLE, SIN, SINE) 


CALL  TRIG  (ANGLE, COS, COSINE) 


CALL  TRIG  (ANGLE, SINDEG, SINE) 


Subprograms 


SUBROUTINE  TRIG  (X,F,Y) 

EXTERNAL  F 

Y  =  F(X) 

RETURN 

END 


FUNCTION 
SINDEG  < 
RETURN 
END 


SINDEG (X) 

SIN  (X*3. 14159/180) 


In  the  example,  SIN  and  COS  are  trigonometric  functions  supplied  in 
the  FORTRAN  library,  and  SINDEG  is  a  user-supplied  function.  The  CALL 
statements  pass  the  name  of  a  function  to  the  subroutine  TRIG.  The 
function  reference  F(X)  subsequently  invokes  the  function' in  the 
second  statement  of  TRIG.  Depending  on  which  CALL  statement  invoked 
TRIG,  the  second  statement  is  equivalent  to  one  of  the  following: 


Y 
Y 
Y 


SIN(X) 
COS(X) 
SINOEG(X) 
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DATA 


5.8   DATA  STATEMENT 

The  DATA  statement  assigns  initial  values  to   variables,   arrays,   and 
array  elements  before  program  execution. 

The  DATA  statement  has  the  following  form: 

DATA  nlist/clist/( ( ,]nlist/clist/l .. . 

nlist 

A  list  of  one  or  more  variable  names,  array  names,  or  array 
element  names,  separated  by  commas,  to  wh^ch  the  values  in  clist 
are  to  be  assigned  sequentially  on  a  one-for-one  basis. 
Subscript  expressions  must  be  integer  constants. 


clist 


A  list  of  constants,  separated   by  commas,   to   be   assigned   to 
nlist.   Clist  constants  have  one  of  the  following  forms: 


val 

n  *  val 

Used  when  you  specify  clist  as  n  *  val.  Specifies  the  number   of 

times   the  same  value  is  to  be  assigned  to  successive  entities  in 

the  associated  nlist.   The  value  of   n  is   a   nonzero,   unsigned 
integer  constant. 

The  DATA  statement  assigns  the  constant  values  in  each  clist  to  the 
entites  in  the  preceding  nlist.  Values  are  assigned  one  for  one  in 
the  order  in  which  they  appear,  from  left  to  right. 

The  number  of  constants  must  correspond  exactly  to  the  number  of 
entities  in  the  preceding  nlist. 

When  an  unsubscr ipted  array  name  appears  in  nlist,  values  are  assigned 
to  every  element.  The  associated  constant  list  must  therefore  contain 
enough  values  to  fill  the  array.  Array  elements  are  filled  in  the 
order  of  subscript  progression. 

Dummy  arguments,  virtual  arrays,  and  virtual  array  elements  may  not  be 
initialized  in  DATA  statements. 

Wh<  '  a  Hollerith  constant  or  alphanumeric  literal  is  assigned  to  a 
variable  or  array  element,  the  number  of  characters  that  can  be 
assigned  depends  on  the  data  type  of  the  component  (see  Table  2-2). 
If  the  constant  contains  fewer  characters  than  the  capacity  of  the 
variable  or  array  element,  the  constant  is  extended  on  the  right  with 
spaces.  If  the  constant  contains  more  characters  than  can  be  stored, 
the  constant  is  truncated  on  the  right. 


Examples  of  the  DATA  statement  are: 

^   INTEGER  A(10) 

BYTE  BELL, TAB, LF,FF,ACHR,ZCHR 

DATA  A,  BELL,rAB,LF,FF,ACHR,ZCHR/10*0,7,9,10,12'A" ,1HZ/ 
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In  the  example,  the  DATA  statements  assign  0  to  all  10  elements  of 
array  A,  and  the  ASCII  control  character  codes  are  assigned  to  the 
byte  variables  BELL,  TAB,  LF,  FF. 

Some  other  examples  are: 

REAL  X(5) 
COMPLEX  Z 
DATA  X/2*-3.,4.,2*0.37/,Z/(1.0,-?.0)/ 


PROGRAM 


5.9   PROGIiAH  STATEMENT 

The  PROGRAM  statement  assigns  a  symbolic  name  to  a  main  program  unit 
The  PROGRAM  statement  has  the  following  form: 
PROGRAM  nam 


naa 


A  symbo 1 i  c  name . 


Th*»  PROGRAM  statement  is  optional.  If  you  use  it,  it  must  be  the 
first  statement  in  the  main  program.  r^e  symbolic  name  must  not  be 
the  name  of  any  entity  vithin  the  main  program.  It  also  must  not  be 
the  same  as  the  name  of  any  subprogram,  entry,  or  coawon  block  m  the 
same  executable  program  (see  Section  2.1). 

The  PROGRAM  statement  must  not  have  a  statement  label. 


BLOCK  DATA 


5.10   BLOCK  DATA  8TATBIIHT 

The  BLOCK  DATA  Statement  begins  a  special  type  of  program  unit  whose 
only  purpose  is  to  declare  comnun  blocks  and  to  define  data  in  coanon 
blocks.  Therefore,  the  BLOCK  DATA  program  unit  can  contain  only 
nonexecutable  stateiaents. 


The  BLOCK  DATA  statement  has  the  following  form: 
BLOCK  DATA  (naa) 


nam 


A  symbol ic  nama. 


InM.Sfr.J!  1^  ^^^  declaration,  IMPLICIT,  DIMENSION,  COMMON, 
EQUIVALENCE,  and  DATA  state^nts  following  a  BLOCK  DATA  statement. 
:I*?._*^."*'*^***"'  '"  ■  *^^^      DATA   progcam   unit   must   be   an   END 


•  tat 


nt 


A  BLOCK  DATA  program  unit  must  not  contain  any  executable   stateawnts. 
A  BLOCK  DATA  statesMnt  must  not  have  a  statement  label. 
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If  yoc  use  a  BLOCK  DATA  program  unit  to  initialize  any  entity  in  a 
coonon  block,  you  must  provide  a  complete  set  of  data  type 
specification  statements  for  all  the  entities  in  the  block,  even 
though  some  of  the  entities  are  not  assigned  an  initial  value  in  a 
DATA  statement.  You  can  use  the  same  BLOCK  DATA  program  unit  to 
define  initial  values  for  more  than  one  coanon  block. 


An  example  of  a  BLOCK  DATA  program  unit  is: 

BLOCK  DATA  BLKDAT 

INTEGER  S,X 

LOGICAL  T,W 

DOUDLE  PRECISION  U  * 

DIMENSION  R(3) 

COMMON  /AREA1/R,S,T,U,/AREA2/W,X,Y 

DATA  R/1. 0, 2*2. 0/,T/. FALSE. /,U/0.214537D-7/,W/. TRUE. /,¥/3. 5/ 


In  the  example,   enough   information  is   provided   to  explicitly  or 

implicitly  declare   the  data   type  of   every  variable  in  the  oonmon 

blocks  AREAl  and  AREA2.   Not  all  the  variables   appear   in   the  DATA 
statement. 
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A  subprogram  is  one  or  a  group  of  statements  that  define  a  computing 
procedure.  A  subprogram  is  invoked  when  a  statement  that  references 
the  subprogram  is  executed.  The  referencing  statement  is  located,  in 
some  cases,  in  the  same  program  unit  and,  in  other  cases,  in  a 
different  program  unit. 


Subprograms  are  of  two  kinds 
of  the  FORTRAN  system. 


either  user-written  or  supplied  as  part 


User-written  subprograms  are  of  three  kinds; 
•   Statement  functions 


•  Functions 


•   Subroutines 


There  is  one  kind  of  reference  to  FORTRAN  library  functions: 
•   Processor-defined  function  references 


In 


many  cases,  the  program  that  references  the  subprogram  passes 
values,  called  ac»:ual  arguments,  to  the  subprogram,  which  uses  the 
actual  arguments  to  compute  the  results.  The  subprogram  specifies 
entities,  called  dununy  arguments,  to  receive  the  actual  arguments. 
Values  may  in  turn  be  passed  back  to  the  referencing  program. 

In  the  discussion  below.  Section  6.1  describes  actual  and  dummy 
arguments;  Section  6.2  describes  user-written  subprograms;  and 
Section  6.3  describes  system-supplied  subprograms. 


6.1   SUBPROGRAM  ARGOMBHTS 

A  subprogram  argument  is  an  entity  wh 
subprogram.  Actual  arguments  a 
referencing  the  subprogram.  Dummy  a 
definition  of  the  subprogram  and  are 
on  a  one-to-one  basis  when  control  is 
Each  dummy  argument  takes  on  the 
argument;  and  any  value  assigned 
subprogram  also  is  assigned  to  t 
When  the  subprogram  returns,  the  as 
arguments  ends.  There  is  no  reten 
one  reference  of  a  subprogram  to  the 


ich  passes  a  value  to  or 
re   specified   in   the 
rguments   are   specified 
associated  with  actual 
transferred  to   the  su 
value  of  the  correspondi 
to   the  dummy   argument 
he  corresponding  actual 
sociation   of   actual   a 
tion  of  argument  associa 
next. 


from  a 
statement 

in  the 
arguments 
bprogram. 
ng  actual 

in  the 
argument, 
nd  dummy 
tion  from 


For  example,  if  (I,J(3),4)  is  a  list  of  actual  arguments  and  (K,L,M) 
18  an  associated  list  of  dummy  arguments,  K  is  associated  with  I,  L  is 
associated  with  J(3),  and  M  has  a  value  of  4. 
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6.1.1   Rules  Governing  Subprogram  Arguments 

Actual  arguments  can  be  constants,  variables,  expressions,  arrays, 
array  elements,  or  subprogram  names.  Dummy  arguments  as  specified  in 
the  subprogram  definition  appear  as  unsubscr ipted  variable  names. 
Actual  arguments  must  agree  in  order,  number,  and  data  type  with  the 
dummy  arguments  with  which  they  are  associated. 

Dummy  arguments  are  symbolic  names  which  become  associated  with 
variables,  arrays,  or  subprograms  defined  or  declared  in  other  program 
units.  A  dummy  argument  is  undefined  if  it  is  not  currently 
associated  with  an  actual  argument. 


Although  dummy  arguments  are  not  variables, 
each  dummy  argument  may  be  '''--i  --—^  ^^ 
array,  or  subprogram. 


. .   arrays,   or   subprograms, 

may   be   declared  as  though  it  were  a  variable. 
Each  dummy  argument  name  is  declared  with   the 
attributes  of  the  associated  actual  argument. 


If  the  actual  argument  is  a  constant,  expression,  subprogram  name,  or 
virtual  array  element  reference,  the  corresponding  dummy  argument  may 
not  be  modified. 

A  dummy  argument  declared  as  an  array  can  be  associated  only  with  an 
actual  argument  that  is  an  array  or  array  element  of  the  same  data 
type.  If  the  actual  argument  is  an  array,  the  dummy  argument  array 
must  not  be  larger  than  the  actual  argument  array. 

If  the  actual  argument  is  an  array  element,  the  dummy  argument  array 
will  be  associated  with  elements  of  the  actual  argument  array  starting 
from  the  actual  argument.  In  this  case,  the  dummy  argument  array  must 
not  be  larger  than  the  number  of  elements  remaining  in  the  actual 
argument  array. 

Valid  Osage 


PROGRAM  MAIN 

DIMENSION  A(10) ,  B(5.5) 


CALL  X(A,  B(l,2)) 

END 

SUBROUTINE  X(Y,Z) 

DIMENSION  Y(10) ,  Z(5,2) 

END 


Invalid  Osage 

PROGRAM  MAIN 

DIMENSION  A(10},  B(5,5) 


CALL  X(A,B(1,21) 

END 

SUBROUTINE  X(C,D) 

DIMENSION  C(12) 


DIMENSION  D(5,5) 
END 


(dummy  array  must  not  be  larger  than  actual 
array) 

(dummy  array  must  not  be  larger  than  number 
of  elements  remaining  in  actual  array) 
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6.1.2   Adjustable  Arrays 

An  adjustable  array  is  a  dummy  argument  array  declared  in  a  subprogram 
with  dimensions  that  can  be  changed  or  "adjusted"  to  match  the 
dimensions  of  the  associated  actual  argument  array  in  the  referencing 
program.  An  adjustable  array  declarator  contains  integer  variables, 
as  well  as  constants,  in  the  dimension  declarators. 


The  following  rules  govern  the  use  of  adjustable  arrays: 

•   The   adjustable   array   must   be   a   dummy   argument   of 
subprogram. 


th< 


•  The  adjustable  array  must  become  associated  with  an  actual 
argument  that  is  an  array. 

V 

•  The  size  of  the  adjustable  array  must  be  less  than  or  equal  to 
the  size  of  the  actual  array. 

•  Variables  in  the  adjustable  array  declarator  that  represent 
the  adjustable  dimensions  must  be  of  the  integer  data  type. 

•  Variables  in  the  adjustable  array  declarator  must  be  dummy 
arguments  of  the  subprogram,  and  the  corresponding  actual 
arguments  must  have  a  defined  value. 


For  example. 


PROGRAM  MAIN 

DIMENSION  Al(10,35),  A2(3,56) 

SUMl  =  SUM(A1,10,35) 

SUM2  =  SUM (A2, 3, 56) 

SUM3  =  SUM(A1,10,10) 


END 


10 


FUNCTION  SUM  (A,M,N) 
DIMENSION  A(M,N) 
SUM  =0.0 


DO  10 

J  = 

1, 

,N 

DO  10 

I  = 

1, 

rM 

SUM  = 

SUM 

+ 

A(I 

,J) 

RETURN 

END 

In  the  example,  Al  and  A2  are  actual  arrays  and  A  is  the  adjustable 
array.  The  function  subprogram  computes  the  sum  of  specified  sections 
of  Al  or  A2.  Note  that  the  dummy  arguments  M  and  N  are  used  to 
control   the   DO  statem'^nt  iteration  as  well  as  to  specify  the  size  of 

For  more  information  on  array  declarators,  see  Section  2.5.1. 


6.2   OSBR-WRITTEN  SUBPROGRAMS 

A  user-written  subprogram  is  a  FORTRAN  statement  or  group  of  FORTRAN 
statements  that  perform  a  computing  procedure.  A  computing  procedure 
can  be  a  series  of  either  arithmetic  operations  or  FORTRAN  statements. 
You  can  use  subprograms  to  perform  a  computing  procedure  in  several 
places  in  your  program,  and  thus  avoid  having  to  duplicate  the  series 
of  operations  or  statements  in  each  place. 
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There  are  three  types  of  aser-wr itten  subprograms.    Table   6-1   lists 

each   type   of  subprogram,  the  statements  needed  to  define  it,  and  the        ^^^ 

method  of  transferring  control  to  the  subprogram.                           ^^B 

Table  6-1:   Types  of  Oser-Written  Subprograns 

Control  Transfer 
SubprograH          Defining  Statements          Method 

Statement                Statement  function     Function  reference 
function                definition 

Function  subprogram      FUNCTION              Function  reference 

RETURN 

Subroutine  subprogram    SUBROUTINE             CALL  statement 

RETURN 

A  function  reference  consists  of  the  function  name   and   the   function        ^^^ 
arguments   and  is  used  in  an  expression.   The  function  returns  a  value 
that  is  used  in  place  of  the  reference  in  the  expression  in   which   it 

appears. 

Function  and  subroutine  subprograms  can  change   the   values   of   their 
arguments  and  the  calling  program  can  use  the  changed  values. 

A  subprogram  can  refer  to  other  subprograms,   but   it   cannot,   either 

directly  or  indirectly,  refer  to  itself.                                   ^^. 

6.2.1   Statement  Functions 

A  statement  function  is  a  single-statement  computation  specified  by   a 
symbolic   name.    When  you  reference  the  statement  function  name,  with 
its  arguments,  in   an  expression,   the   computation   defined   by   the 
statement   function  name  is  performed  and  the  resulting  value  replaces 
the  statement  function  name  in  evaluating  the  expression.    Statement 
functions  are  defined  and  referenced  within  a  single  program  unit.            ^^ 

The  statement  function  definition  statement  has  the  following  form:          ^^^ 

f  ( lp(,pl ...1 )=e 

1 

The  name  of  the  statement  function. 

A  dummy  argument. 

• 

An  expression. 

— 

The  expression  (e)  is  an  arithmetic  or  logical  expression  that  deti.nes 
the  computation  to  be  performed. 

• 

- 
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A  statement  function  reference  has  the  following  form: 
f  (Ia[,a]...)) 


f 


The  name  of  the  function. 


An  actual  argument. 


When  a  statement  function  reference  appears  in  an  expression,  the 
values  of  the  actual  arguments  are  associated  with  the  dummy  arguments 
in  the  statement  function  definition.  The  expression  in  the 
definition  is  then  evaluated.  The  resulting  value  is  used  to  complete 
the  evaluation  of  the  expression  containing  the  function  reference. 

The  following  rules  govern  the  use  of  statement  functions: 

•  Statement  function  names  must  be  unique  within  the  same 
program  unit. 

•  A  statement  fjnction  reference  must  appear  in  the  same  program 
unit  as  its  definition. 

•  A  statement  function  definition  statement  can  include  a 
reference  to  another  statement  function,  which  must  be  defined 
earlier  in  the  same  program  unit. 

•  Statement  function  definitions  must  be  placed  before  all 
executable  statements  (see  Figure  1-3). 

•  The  data  type  of  the  resulting  value  assigned  to  the  name  is 
determined  either  implicitly  by  the  first  letter  of  the  name, 
or  explicitly  by  a  type  declaration  statement. 

•  Statement  function  dummy  arguments  serve  only  to  indicate 
order,  number,  and  data  type  of  arguments  for  the  statement 
f unct  ion. 

•  Statement  function  dummy  argument  names  do  not  follow  the 
usual  rules  for  uniqueness  of  symbolic  names  (see  Section 
2.1).  Statement  function  dummy  arguments  must  be  unique  only 
within  each  statement  function  definition.  Variables  or 
arrays  of  the  same  names  as  the  dummy  arguments  can  be 
declared  and  used  within  the  same  program  unit. 

•  The  data  type  of  statement  function  dummy  arguments  is 
determined  either  implicitly  by  the  first  letter  of  the  name, 
or  explicitly  by  a  type  declaration  statement. 

Examples  of  statement  function  definitions  are: 

Valid 

VOLUME(RADIUS)  =  4 . 189*RADI US** 3 

AVG  (A,B,C)  =  (A<-B+C)/3 

SINH  (X)  =  (EXP(X)  -  EXP  (-X))*0.5 


Invalid/Explanation 

AXG  (A,B,C,3.)  =  (A+B+C)/3 


(A  constant  cannot  be  a  dummy 
argument) 
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Examples  of  jtatement  function  references  follow.   The  examples   below 
refer  to  the  second  statement  function  definition  above. 

Valid 

GRADE  «  AVG  (TESTl, TEST2, XLAB) 

IF  (AVG  (P,D,Q) .LT.AVG(X,Y,Z) )G0  TO  300 

Invalid/Explanation 

FINAL  =  AVG  (TEST3,TEST4,LAB2) 

(An  actual  argument  and  its  corresponding  dummy  argument  must  agree 
in  data  type;  in  this  case,  LAB2  is  integer  but  C  above  is  real.) 


6.2.2   Function  Subprograms 


A  function  subprogram  is  a  program  unit  refp'enced  by  a  symbolic  name. 
When  you  reference  the  function  name^  with  its  arguments,  in  an 
expression,  the  program  unit  defined  by  the  function  name  is  executed; 
and  the  resulting  value  of  the  funct'on  replaces  the  function  name  in 
evaluating  the  expression.  A  function  subprogram  consists  of  a 
FUNCTION  statement  followed  by  a  series  of  statements  that  define  a 
computing  procedure. 

The  FUNCTION  statement  has  the  following  form: 

(typ)  FUNCTION  nam(*m)  I ( Ipl ,p!  ...1  )  ! 

typ 

One  of  the  data  type  specifiers  (sea  Table  2-2). 


naa 


The  name  of  the  function. 


A  data  type  length  specifier  (see  Table  ?-.<:; 


A  dummy  argument. 

A  function  reference  that    transfers  control  to  a   function   subprorram 
has  the  following  form: 

nam  (  [a(  ,al  . . . ) ) 


Ttie  symbolic  naaie  of  the  function. 


An  actual  ar>,unent. 

When  the  name  of  the  function  subprogram  is  jned  in  an  expression, 
control  IS  transferred  to  the  subprogram;  and  the  values  of  tt.e 
actual  arguments  (if  any)  in  the  fjnction  reference  are  associated 
with  the  dummy  arguments  (if  any)  in  the  FUNCTION  statement.  The 
statements  in  the  saupcogram  are  then  executed.  A  value  must  be 
assigned  to  the  name  of  the  function  ^ts  though  it  were  a  v^ri^ble. 

Finally,  a  RETURN  statement  is  «*xecutjJ  in  tne  function  and  returns 
control  to  the  ^ailing  program  unit.  An  END  «t  itement  arts  as  an 
implied  RETURN.  TVe  value  assigned  to  tne  function's  name  is  now  used 
to  complete  tne  evaluation  of  the  expression  containing  the  name. 
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# 


The  following  rules  govern  the  use  of  function  subprograms: 

•  The  PUNCTION  statement  must  be  the  first  statement  of  a 
function  subprogram. 

•  The  FUNCTION  statement  must  not  have  a  statement  label. 

•  A  function  subprogram  must  not  contain  these  statements: 
SUBROUTINE,  BLOCK  DATA,  or  another  FUNCTION  statement. 

•  A  function  subprogram  can  reference  another  subprogram  but  it 
cannot  reference  itself  either  directly  or  indirectly. 

•  The  data  type  of  a  function  -ame  can  be  specified  either 
implicitly  or  explicitly  in  the  FUNCTION  statement  or  in  a 
type  declaration  statement. 

•  The  function  name  must  have  the  same  data  type  in  the 
subprogram  and  in  the  referencing  program. 

An  example  of  a  function  subprogram  is: 

FUNCTION  ROO  lA) 
X  »  1.0 
t     EX  «  £:XP(X) 

EM I NX  «  l./EX 

ROOT  «  ((EX+EMINX)*.5+C0S(X)-A)/({EX  -  EM INX) * . 5-SIN (X > ) 

IF  (ABS(X-ROOT) .LT.lE-6)  RETURN 

X  »  ROOT 

GO  TO  2 

END 

The  function  in  this  example  uses  the  Newton-Raphson  iteration   nethod 
to  obl.ain  the  root  of  the  following  function: 

F(X)  =  cosh(X)  ♦  cos(X)  -  A  =  0 

The  value  of  A  is  passed  as  an   argument.   The   iteration   formula   for 
this  root  is: 


Xi+I 


cosh(Xi)+cos(Xi  )-A~| 
Xi  -   

_sinh(Xi)-sin(Xi)   J 


The  caluclation  is  repeated  until  the  difference  between  Xi   and   Xi*l 
is  less  than  l.OE-6. 

The  function  uses  the  FORTRAN  library  functions  EXP,  SIN,  COS,  and  ABS 
(see  Section  6.3). 


6.2.3  Subroutine  Subprograna 

A  subroutine  subprogram  is  a  program  unit  referenced  by  a  symbolic 
name.  When  you  reference  the  subroutine  name  in  a  CALL  statement,  the 
program  unit  defined  by  the  subroutine  name  is  executed.  in  contrast 
to  the  statement  function  and  function  subprogram,  no  value  is 
returned  to  the  subroutine  name.  A  subroutine  subprogram  consists  of 
a  SUBROUTINE  statement  followed  by  a  serien  of  statements  that  define 
a  computing  procedure. 
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The  SUBROUTINE  statement  has  the  following  form: 

SUBROUTINE  nam  [ ( [p( ,p) . . . ] ) ] 

naa 

The  name  of  the  subroutine. 

A  dummy  argument. 

You  must  use  a  CALL  statement  to   transfer   control   to  a   subroutine 

subprogram,   and  a   RETURN  statement  to  return  control  to  the  calling 

program  unit.   Section  4.5  describes  the  CALL  statement. 

When  control  is  transferred  to   the   subroutine,   the   values   of   the 

actual   arguments   (if   any)  in  the  CALL  statement  are  associated  with 

the   corresponding   dummy   arguments   (if   any)   in    the    SUBROUTINE 

statement.    The  statements   in   the   subprogram  are   then  executed. 

Finally,  a  RETURN  statement  is  executed   in   the   subroutine   and   it 

returns   control   to  the  calling  program.   An  END  statement  acts  as  an 

implied  RETURN. 

The  following  rules  govern  the  use  of  subroutine  subprograms: 

•   The  SUBROUTINE  statement  must  be   the   first   statement   of   a 

subroutine. 

•   The  SUBROUTINE  statement  must  not  have  a  statement  label. 

•   A  subroutine  subprogram  must  not   contain   a   FUNCTION,   BLOCK 

DATA,  or  another  SUBROUTINE  statement. 

•   A  subroutine  subprogram  can  reference  another  subprogram,   but 

it  cannot  reference  itself  either  directly  or  indirectly. 

Example: 

The  subroutine  in  the  following   example  computes   the   volume   of   a 

regular   polyhedron,   given   the  number  of  faces  and  the  length  of  one 

edge.   It  uses  the  computed  GO  TO  sx;atement  to  determine   whether   the 

polyhedron   is   a   tetrahedron,   cub«>,   octahedron,   dodecab<»dron,   or 

icosahedron.   The  GO  TO  statement  alv,o  transfers  control  t    he  proper 

procedure   for   calculating  the  vc'ij,,f:.  i'    the  number  of  .  .ces  is  not 

4,  6,  8,  12,  or  20,  the  subroutine  d;^ipldys  an  error   message   on   the 

user's  terminal. 

Main  Program 

COMMON  NFACES, EDGE, VOLUME 

ACCEPT  *,  NFACES, EDGE 

CALL  PLYVOL 

TYPE  *,  'VOLUME=' .VOLUME 

STOP 

! 
i 

END 
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Subroutine 

SUBROUTINE  PLYVOL 

COMMON  NFACES, EDGE, VOLUME 

CUBED  «  EDGE** 3 

GOTO  (6,6,6,1,6,2,6,3,6,6,6,4,6,6,6,6,6,6,6,5) ,NPACES 
GOTO  6 

1  VOLUME  »  CUBED  *  0.11785 
RETURN 

2  VOLUME  =  CUBED 
RETURN 

3  VOLUME  »  CUBED  *  0.47140 
RETURN 

4  VOLUME  -  CUBED  *  7.66312 
RETURN 

5  VOLUME  =  CUBED  *  2.18170 
RETURN 

6  TYPE  100,  NFACES 

100   FORMAT  (•  NO  REGULAR  POLYHEDRON  HAS  ',13,  '  FACES.'/) 
VOLUME- 0.0 
RETURN 
END 


6.3   FORTRAN  LIBRARY  FONCTIONS 

FORTRAN  library  functions  are  system-supplied  subprograms  referenced 
in  the  same  way  as  user-written  function  subprograms. 

For  example: 

R  =  3.14159  *  ABS(X-l) 

ABS  is  a  FORTRAN  library  function.  As  a  result  of  this  reference,  the 
absolute  value  of  X-1  is  calculated  and  multiplied  by  the  constant 
3.14159;   the  result  is  assigned  to  the  variable  **R. 


The  FORTRAN 
gives   the 
arguments. 


library  functions  are 
data   type  of   each 


listed  in   Appendix  B,   which   also 
library   function  and  of  the  actual 


The  FORTRAN  library  functions  also  are  called  processor-defined 
functions.  Note  that  the  processor-defined  functions  include  both  the 
Intrinsic  Functions  and  the  Basic  External  Functions  described  in  ANS 
FORTRAN. 


Normally,  a  name  in  the  table  of  processor-defined  functions  refers  to 
the  FORTRAN  library  function  with  that  name.  However,  the  name  can 
refer  to  a  user-defined  function  under  any  of  the  following 
conditions: 

•   The  name  appears  in  a  type  declaration  statement  specifying   a 
different  data  type  from  that  shown  in  the  table. 


The  rijine  is  used  in 
different  data  type 


a  function  reference  with  arguments 
from  that  shown  in  the  table. 


of 


Processor-defined  function  names  apply  only  to   the  program  unit   in 
which   they  are  referenced.   Thus,  they  can  be  used  for  other  purposes 

in   other   program   units.    ^^   =.^.^i..i^«    ^k-»    j,^-    .. 

processor-defined   function 
statement. 


In   addition,   the    data    type 
does   not   change   because  of  an 


of    a 
IMPLICIT 
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FORTRAN  programs  use  READ  and  ACCEPT  statements  for  input,  and  WRITE, 
REWRITE,  TYPE,  and  PRINT  statements  for  output.  Some  forms  of  these 
statements  are  used  with  format  specifiers  that  control  the 
translation  and  editing  of  data  between  internal  (binary)  form  and 
external  (readable  character)  form. 

Each  READ  or  WRITE  statement  refers  to  the  logical  unit  to  or  from 
which  data  is  to  be  transferred.  A  logical  unit  can  be  connected  to  a 
device  or  file  by  the  OPEN  statement  (see  Section  9.1). 

The  ACCEPT,  TYPE,  and  PRINT  statements  do  not  refer  to  logical  units; 
rather,  they  transfer  data  between  the  program  and  an  implicit  logical 
unit.  The  ACCEPT  and  TYPE  statements  are  normally  connected  to  the 
user's  terminal  and  the  PRINT  statement  is  rjormally  connected  to  the 
system  line  printer. 

Input/output  (I/O)  statements  are  grouped  into  three  categories: 


Sequential  I/O 
files,  or  to 
Section  7.3. 

Direct  Access 
number,  to  and 


-  transfers 
and  from  an 


records  sequentially   to   and   from 
I/O  device  such  as  a  terminal.   See 


I/O  -  transfers   records, 
from  direct  access  files. 


selected   by   record 
See  Section  7.4. 


•  Internal  I/O  -  ENCODE  and  DECODE  statements  translate  and 
transfer  data  between  variables  and  arrays  within  the  FORTRAN 
program.   See  Section  7.6. 

I/O  statements  that  contain  format  specifiers  are  called  formatted  I/O 
statements.  Formatted  I/O  statements  are  used  to  translate  data 
between  internal  (binary)  form  within  the  program  and  external 
(readable  character)  form  in  the  records. 

I/O  statements  that  do  not  contain  format  specifiers  are  called 
unformatted  I/O  statements.  Unformatted  1/0  statements  transfer  data 
without  translation.  Unformatted  I/O  is  generally  used  when  data 
output  by  a  program  will  be  subsequently  input  by  the  same  (or  a 
similar)  program.  Unformatted  I/O  saves  execution  time  by  eliminating 
the  data  translation  process,  pres'^rves  greater  precision  in  the 
external  data,  and  usually  conserves  file  storage  space. 

I/O  statements  transfer  all  data  in  terms  of  records.  The  amount  of 
data  that  one  record  can  contain,  and  the  way  records  are  separated, 
depend  on  how  the  data  is  transferred. 

In  unformatted  I/O,  the  I/O  statement  specifies  the  amount  of  data  to 
be  transferred.  In  formatted  I/O,  the  I/O  statement  and  its 
associated  format  specifier  jointly  determine  the  amount  of  data  to  be 
transferred. 
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7.1.3.2  Direct  Access  -  Direct  access  means  that  the  program 
specifies  the  order  of  processing  by  including  a  direct  access  record 
number  in  each  I/O  statement.  For  sequential  organization  files,  the 
records  must  be  fixed-length. 


7.2   I/O  STATEMENT  COMPONENTS 

The  following  sections  describe  th*»  components  of  I/O  statements: 
logical  unit  numbers,  format  specifiers,  direct  access  record  numbers, 
key  expressions,  I/O  lists,  and  parameters  specifying  the  transfer  of 
control  if  an  error  or  end-of-file  condition  occurs. 


7.2.1   Logical  Unit  Numbers 

A  logical  unit  number  is  an  integer  value  that  refers  to  a  specific 
file  or  I/O  device.  A  logical  unit  number  must  be  an  integer  constant 
or  variable  with  a  value  in  the  range  1  through  99. 

A  logical  unit  number  is  connected  to  a  file  or  device  in  one  of  two 
ways : 


Explicitly  through  an  OPEN  statement  (see  Section  9.1). 

Implicitly  by  the  system.   The  appropriate  PDP-11  FORTRAN   IV 

user's   guide   describes   the   use   of   implicit  logical  unit 
numbers  in  greater  detail. 


7.2.2  Format  Speci   ers 

Format  specifiers  are  used  in  formatted  I/O  statements  and  can  be   any 
of  the  following: 

•  The  statement  label  of  a  FORMAT  statement. 

•  The  name  of  an  array  containing  a  run-time  format  (see  Section 

8.6)  . 

Chapter  8  describes  FORMAT   statements.    Section   8.7   describes   the 
interaction  between  formats  and  I/O  statements. 

In  sequential  I/O  statements,  you  can  use  an   asterisk   instead   of   a 
format   specifier   to   denote   list-directed  formatting.   See  Sections 

7.3.3  and  7.3.4  on  list-directed  I/O. 


7.2.3   Direct  Access  Record  Numbers 

A  direct  access  recotd  number  is  an  integer  value  that   specifies   the 
position  of  the  record  in  a  direct  access  file. 

The  value  -nust  be  greater  than  or  equal  to  1,  and  less  than   or   equal 
to  the  maxinum  number  of  records  in  the  file. 


7.2.4   Bnd-of-Pile  Condition  and  Error  Condition  Parameters 

If  an  I/O  error  or  end-of-file  condition   is   encountered,   any   READ, 
WRITE,  ^vEWRITE,  ENCODE  or  DECODE  statement  can  specify  that  control  is 
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to  be  transferred  to  a  specified  statement.   The  specifiers   have   the 
following  forms,  respectively,  for  end-of-file  and  error  conditions: 


END'S 
ERR-S 


The  label  of  an  executable  statement  to  which  control 
transferred . 


IS 


to   be 


A  READ,  WRITE,  REWRITE,  ENCODE  or  DECODt  statement  can  include  either 
or  both  of  the  above  specifications,  in  any  order.  The 
specif ication (s)  must  follow  the  unit  number,  record  number,  and/or 
format . 

The  statement  label  in  the  END=s  or  ERR»s  specification  must  refer  to 
an  executable  statement  within  the  same  program  unit  as  that  of  the 
I/O  statement. 

An  end-of-file  condition  occurs  when  no  more  records  exist  in  a 
sequential  file,  or  when  an  end-file  record  produced  by  the  ENDFILE 
statement  (see  Section  9.8)  is  encountered.  If  a  READ  statement 
encounters  an  end-of-file  condition  during  an  I/O  operation,  it 
transfers  control  to  the  statement  named  in  the  END=s  specification. 
If  no  END=s  specification  is  present,  an  error  condition  occurs. 

If  a  READ,  WRITE,  REWRITE,  ENCODE  or  DECODE  statement  encounters  an 
error  condition  during  an  I/O  operation,  it  transfers  control  to  the 
statement  whose  label  appears  in  the  ERR=s  specification.  If  no  ERR«s 
is  present,  the  I/O  error  terminates  program  execution. 

An  END=  specification  in  a  WRITE  or  REWRITE  statement  or  direct  access 
READ  statement  is  ignored.  If  you  attempt  to  read  or  write  a  record 
using  a  record  number  greater  than  the  maximum  specified  for  the 
logical  unit,  an  error  condition  occurs. 


The  appropriate   PDP-11   FORTRAN 
subroutines   that   you   can   use 
subroutines  can  also  be  used  t 
on  the  type  of  error  that  occu;. 

Examples  of  I/O  statements  follow. 


IV  user's  guide  describes  system 
to  control  error  processing.  These 
tain  information  from  the  I/O  system 


READ  (8,END=550)  (MATRIX (K) , K= 1 , 100 ) 

This  statement  transfers  control  to  statement  550  if  an  end-of-file 
condition  occurs  on  logical  unit  8. 

WRITE  (6,50,ERR^39O) 

This  statement  transfers  control  to  statement  390  if  an  error  occurs 
in  execution  of  the  WRITE  statement. 

READ  (1,FORM,ERR»150,END=200)  ARRAY 

This  statement  transfers  control  to  statement  150  if  an  error  occurs 
in  the  execution  of  the  READ  stat(?ment  and  to  statement  200  if  the 
end-of-file  condition  occurs. 


7.2.5   Input/Output  Lists 

The  I/O  list  in  an  input,  output,  ENCODE,  or  DECODE  statement  contains 
the   names   of   variables,  arrays,  and  array  elements  from  which  or  to 
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which  data  will  be  transferred.   The  I/O  list  in  an  outpu  .   statement 
can  also  contain  constants  and  expressions  to  be  output. 

An  I/O  list  has  the  following  form: 

s[,s]  . .. 

• 

A  simple  list  or  an  implied  DO  list. 

The  I/O  statement  assigns  values  to,  or   transfers   values   from,   the 
list  elements  in  the  order  in  which  they  appear,  from  left  to  right. 

7.2.5.1   Simple  Lists  -  A  simple  I/O  list   element   can   be   a   single 
variable,  array,  array  element,  constant,  or  expression.   A  simple  I/O 
list  consists  of  either  a  simple  I/O  list  element  or  a  group  of  two  or 
more   simple   I/O   list   elements   separated  by  commas  and  enclosed  in 
parentheses.   For  example: 

WRITE  (5,10)  J,  K(3),  4,  (L*4)/2,  N 

When  you  use  an  unsubscr ipted  array  name  in  an  I/O   list,   a   READ   or 
ACCEPT  statement  reads  enough  data  to  fill  every  clement  of  the  array; 
a  WRITE,  TYPE,  or  PRINT  statement  writes  all  the  values  in  the   array. 
Data   transfer   begins   with   the   initial   element   of   the  array  and 
proceeds  in  the  order  of   subscript   progression,   with   the   leftmost 
subscript   varying  most  rapidly.   For  example,  the  following  defines  a 
two-dimensional  array: 

DIMENSION  ARRAY(3,3) 

if  the  name  ARRAY,  with  no  subscripts,  appears  in   a   READ   statement, 
that   statement  assigns  values  from  the  input  record(s)  to  ARRAY(1,1), 
ARRAY  (2,1),  ARRAY  (3,1),  ARRAY  (1,2),  and  so  on  through  ARRAY  (3,3). 

In  a  READ  or  ACCEPT  statement,  variables  in  the  1/0  list  can   be   used 
in  array  subscripts  later  in  the  list.   For  example: 

READ  (1,1250)  J,K,^RRAY(J,K) 
1250  FORMAT  ( I  I , X , I  I , X , F6 . 2 ) 

The  input  record  contains  the  following  values: 

1,3,721.73 

When  tie  READ  statement  is  execute. i,  the  first  input  value  is  assigned 
to   J   and   the  second  to  K,  thereby  establishing  the  actjal  subscript 
values   for   ARRAY(J,K).    Then   tne   value   721. "'3   is   assigned    to 
ARRAY(l,3).    Variables   that  are  to  be  useJ  .is  subscripts  in  this  way 
must  appear  before  t.o  tne  left  of)  their  ise  as  the  artay   subscripts 
in  th«  I/O  list. 

An  output   statement   I/O   list   may   contain   any   valid   expression. 
However,   this  expression  nust  not  attempt  any  further  I  '0  operations. 
For  example,  an  output  statement  WO  list  expression  must  not  refer  to 
a  function  subprogra.n  that  performs  I/O. 

An  input  statement  I/O  list  must  not  contain  an  expression,  except   as 
a  subscript  expres-ion  m  an  array  reference. 
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7.2.5.2  laplicd  00  Lists  -  An  implied  DO  lut  is  an  I/O  list  element 
that  functions  as  though  it  were  a  part  of  an  I/O  statement  within  a 
DO  loop.   Implied  DO  IMts  can  be  used  to: 

•  Specify  iteration  of  part  of  an  I/O  list 

•  Transfer  part  of  an  array 

•  Transfer  array  elements  in  a  sequence  different  from  the  order 
of  subscript  progression 

An  implied  DO  list  has  the  form: 

(Iist,i-el,e2[,e31 ) 
list 

An  I/O  lisc. 


An  integer  variable. 


•I,e2,e3 


Integer  expressions. 

The  variable  i  and  the  parameters  el,  e2,  and  e3  have  the  same  forms 
and  the  same  functions  that  they  have  in  the  DO  statement  (see  Section 
4.3).  The  list  immediately  preceding  the  DO  loop  parameter  is  the 
range  of  the  implied  DO  loop.  Elements  in  that  list  can  reference  i, 
but  they  must  not  alter  the  value  of  i.   Some  examples  are: 

#rRITE  (3,200)  (A,B,C,  I«l,3) 
The  statement  in  this  example  behaves  as  though  you  had  written: 

WRITE  (3,200)  A,B,C,A,B,C,A,B,C, 
Another  example  is: 

WRITE  (6)  (I, (J,P(I) ,0(I,J),J-1,L),I«I,M) 
The  I/O  list  in  this  example  consists  of  an  implied  DO  list  containing 


another   implied   DO   list   nested   within   it 


The  implied  DO  lists 


together  will  write  a  total  of  (1>3*L)  *M  fields,  varying  the  Js  for 
each  value  of  I. 

In  a  series  of  nested  implied  DO  lists,  the  parentheses  indicate  the 
nesting  (see  Section  4.3.2).  Execution  of  the  innermost  list^  is 
repeated  most  often.   For  example: 

WRITE  (6,150)  ((FORM(K,L),  L»l,10).  K«l,10,2) 
150   FORMAT  (FIO.2) 

Because  the  inner  DO  loop  is  executed  10  times  for  each  iteration  of 
the  outer  loop,  the  second  subscript  L  advances  from  1  through  10  for 
each  increment  of  the  first  subscript.  This  is  the  reverse  of  the 
order  of  subscript  progression.  In  addition,  K  is  incremented  by  2, 
so  only  the  odd-numbered  rows  of  the  array  are  output. 
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The  entire  list  of  an   implied   DO   list   is   t 


control  variable  is  incremented 


ransmirted   before   the 


Tor  example 


READ  (5,999)  (P(I),  (Q(I,J),  J«l,10),  I«l,5) 


In  this  example,  P(l 
incremented  to  2. 


Q(l,l) ,  Q{1,2) 


rOdrlO)  18  read  before  I 


1  s 


rrays,  you  can  use  a  combination   of 

o  an  implied  DO 


When  processing  multidimensional  a 

fixed   subscripts   and  suoscripts  that  vary  according  t 

list.   For  example: 

READ  (3,5555)  (B0X(1,J),  J«l,10) 


This  statement  assigns  i 


then  terminates  without  affecti 


nput  values  to  B0X(1,1)  through  BOX(1,10)   and 


ng  any  other  element  of  the  array 


The  value  of  the  control  variable  can  also  be 
example: 


output   directly 


WRITE  (6,1111)  (I,  1-1,20) 
This  statement  simply  prints  the  inteoers  1  t^rough  20 


For 


7.3   SEQUENTIAL  INPUT/OUTPUT 

Sequential  I/O  statements  transfer  records  sequentially  to  or  from 
either  files  or  I/O  devices. 

Formatted  sequential  I/O  state.nents  transfer  records  usi  g  format 
specifiers  to  control  the  translation  of  data  between  internal  and 
external  form. 

List-directed  sequential  I/O  statements  transfer  formatted  records. 
Instead  of  using  a  format  specifier,  the  data  types  of  the  I/O  list 
elements  control  the  translation  of  data  between  internal  and  external 
form.  In  effect,  list-directed  sequential  I/O  statements  are  a  method 
of  obtaining  simple  formatted  input  or  output  witKjut  using  FORMAT 
statements.  Both  formatted  sequential  and  list-directed  I/O 
statements  can  refer  to  the  same  logical  unit.  When  you  read  files 
that  contain  both  formatted  and  list-directed  records,  you  must  ensure 
that  each  record  is  read  with  the  correct  format. 

Unformatted  sequential  I/O  statements  transfer  records  of  binary  data 
without  translation. 


READ 
ACCEPT 


7.3.1   Foraatted  Sequential  Input  Stat 


nts 


The  formatted  sequential  READ  statement  transfers  ciata  from  the 
specified  logical  unit.  If  a  formatted  sequential  READ  statement  does 
not  have  a  logical  unit  number,  it  uses  in    implicit  logical  u'lt. 
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The  formatted  sequential  ACCEPT  statement  is  similar  to  a  formatted 
sequential  READ  statement  except  that  an  implicit  logical  unit  number 
is  always  used. 

Formatted  sequential  input  statements  have  the  following  forms: 

READ  (u,f  [,END«S]  [,ERR=»S]  )  [list] 

READ  f(,list] 

ACCEPT  f(,list) 


u 


list 


A  logical  unit  number. 

A  format  specifier. 

The  label  of  an  executable  statement. 

An  I/O  list. 


A  statement  of  the  following  form  causes  data  to  be  read  from  a 
system-defined  logical  unit: 

READ  200,  ALPHA, BETA, GAMMA 

Characters  transferred  by  formatted  sequential  statements  are 
translated  to  the  internal  form  specified  by  the  format  specifier. 
The  resulting  values  are  assigned  to  the  elements  of  the  I/O  list. 

If  the  number  of  list  elements  is  less  than  the  number  of  input  record 
fields,  the  excess  portion  of  the  record  is  ignored. 

Usually  a  single  formatted  record  is  transferred  by  the  execution  of  a 
formatted  sequential  input  statement.  However,  the  format  specifier 
can  specify  that  more  than  one  record  is  to  be  read  during  execution 
of  a  single  input  statement. 

If  the  FORMAT  statement  associated  with  a  formatted  input  statement 
contains  a  Hollerith  constant,  input  data  is  read  and  stored  directly 
into  the  storage  location  of  the  format  specification.  See  Section 
8.1.9. 

If  no  I/O  list  is  present,  data  transfer  occurs  only  between  the 
record  and  the  storage  location  of  the  format  specifier.   For  example: 

READ  (5,100) 
100   FORMAT  (15H  DATA  GOES  HERE) 

These  statements  read  15  characters  from  the  next  record  on  logical 
unit  5.   If  the  15  characters  are: 

REVIEW  SECTIONS 
The  FORMAT  statement  becomes: 

100  FORMAT  {15HREVIEW  SECTIONS) 

Other  examples  of  formatted  sequential  input  statements  follow: 

READ  (1,300)  ARRAY 
300   FORMAT  (20F8.2) 
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These  statements  read  a  record  from  logical  unit  1  and  assign  fields 
to  ARRAY. 

READ  100,  ICOUNT, ALPHA, BETA 
100   FORMAT  (15,  F8.2,  F5.1) 

These  statements  read  a  record  from  an  implicit  logical  unit,  and 
assign  fields  to  integer  variable  ICOUNT  and  real  variables  ALPHA  and 
BETA. 


WRITE 

TYPE 

PRINT 


7.3.2   Poraatted  Sequential  Output  State«ent« 


The   formatted   sequential   WRITE   statement   t 
specified  logical  unit. 


ransfers   data   to   the 


The  formatted  sequential  TYPE  and  PRINT  statements  are  similar  to   the 


formatted   sequent ia 


to  an  implicit  logical  unit 

The  formatted  sequential  output  statements  ha 

WRITE  (u,f !,ERR=sl ) (list] 

TYPE  fl,list] 


WRITE  Statement,  except  that  output  is  directed 


ve  the  following  forms; 


PRINT  f [  ,list 


A  logical  unit  number. 


A  format  specifier 


The  label  of  an  executable  statement 


list 


An  I/O  list 


The  I/O  list  specif i 


es  a  sequence  of   values   that   are   converted   t< 


characters  and  positioned  as  specified  by  the  for 
I/O  list  is  present,  data  tr 


ma*,  speci  f  ler 


If  no 


ansfer  occurs   only   between   tne   storage 


location  of  the  format  specifier  and  the  record 

The  data   transferred   by   a   for,Tiatted   sequential 
normally   constitutes   one   formatted  record.   However,  the  f 
specify  that  additional  records  are  to  be 
a  single  output  statement. 


written  during  executi 


output   statement 

ormat  can 

on   of 


Numeric  data   output 
conversion   to   external  format 


calculat  ions 


loss   of 


precision,  use  unformatted  outout 


under   format   control   is   round*.  J   daring   the 

input  for  additional 
To   avoid   loss   of 


If  such  data  is 


precision   nay   result 
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The  records  transmitted  by  a  formatted  WRITE  statement  must  not  exceed 
the  length  that  the  specified  device  can  accept.  For  example,  a  line 
printer  typically  cannot  print  a  record  longer  than  132  characters. 

Examples  of  formatted  sequential  output  statements  follow. 

WRITE  (6,  650) 
650   FORMAT  ('  HELLO  THERE') 

•^hese  statements  write  the  alphanumeric  literal  contained  in  the 
FORMAT  statement  to  logical  unit  6. 

WRITE  (1,95)  AYE,BEE,CEE 
95    FORMAT  (3F8.5) 

These  statements  write  one  record,  consisting  of  three  fields,  to 
logical  unit  1. 

WRITE  (1,950)  AYE,BEE,CEE 
950   FORMAT  (F8.5) 

These  statements  write  three  separate  records,  consisting  of  one  field 
each,  to  logical  unit  1. 

In  the  last  example,  the  rightmost  parenthesis  of  the  FORMAT  statement 
is  reached  before  all  elements  of  the  I/O  list  are  oitput.  Each  time 
this  occurs,  the  current  record  is  terminated  and  a  new  record  is 
initiated.  Thus,  three  separate  records  are  written.  For  a  more 
complete  explanation,  see  Section  8.7. 


READ 
ACCEPT 


7.3.3   List-Directed  Input  Stateawnts 

The  list-directed  READ  statement  transfers  records  from  the  specified 
logical  unit,  translates  the  data  from  external  to  internal  form,  and 
assigns  the  resulting  values  to  the  elements  of  the  I/O  list  xn  the 
order  in  which  those  elements  appear,  from  left  to  right.  The  I/O 
list  is  required.  If  a  list-directed  READ  statement  does  not  include 
a  logical  unit  number,  an  implicit  logical  unit  number  is  used.  The 
list-directed  ACCEPT  statement  is  similar  to  a  list-directed  READ 
statement  except  that  an  implicit  logical  unit  number  is  always  used. 

The  list-directed  input  statements  have  the  following  forms: 

READ  (u,* l,END»sl (,ERR=s] )  lis 

READ  *,list 

ACCEPT  *,list 


A  logical  unit  number. 


Indicates  list-directed  formatting. 
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list 


The  label  of  an  executable  statement. 


An  I/O  list. 


The  external  record  must   contain   a   sequence   of   values   and   value 
separators.   A  value  can  be: 

•  A  constant 

•  A  null  value 

•  A  repetition  of  constants  in  the  form  r*c 

•  A  repetition  of  null  values  in  the  form  r* 

The  following  paragraphs  describe  these  values. 

Each  input  constant  has  the  form  of  a  FORTRAN  constant  (see  Section 
2.3).  A  complex  constant  has  the  form  of  a  pair  of  real  or  integer 
constants  separated  by  a  comma  and  enclosed  in  parentheses.  Spaces 
can  occur  between  the  opening  parenthesis  and  the  first  constant, 
before  and  after  the  separating  coiT.ma ,  and  between  the  second  constant 
and  the  closing  parenthesis.  A  logical  constant  is  either  T  or  t 
(true)  or  F  or  f  (false).  Hollerith  and  octal  constants  are  not 
permitted.  If  the  data  types  of  a  list  element  and  its  corresponding 
constant  do  not  match,  conversion  is  performed  according  to  the  rules 
for  arithmetic  assignment  (see  Table  3-1). 

A  null  value  is  specified  by  two  consecutive  commas  with  no 
intervening  constant.  Spaces  can  occur  between  the  commas.  A  null 
value  specifies  that  the  corresponding  list  element  remains  unchanged. 
A  null  value  cannot  be  used  for  either  part  of  a  complex  constant,  but 
can  represent  an  entire  complex  constant. 

The  form  r*c  indicates  r  occurrences  of  c  where  r  is  a  nonzero, 
unsigned  integer  constant  and  c  is  a  constant.  Spaces  are  not 
permitted  except  within  the  constant  c  as  specified  above. 


is   an 


The  form  r*  indicates  r  occurrences  of  a  null   value   where 
unsigned  integer  constant. 

A  value  separator  can  be: 

•  One  or  more  spaces  or  tabs 

•  A  comma,  with  or  without  surrounding  spaces  or  tabs 

•  A  slish 

The  slash  value  separator  terminates  processing  on  the  input  statement 
and  record;   all  remaining  I/O  list  elements  are  unchanged. 

Each  input  statement  will  read  one  or   more   records   as   required  to 

satisfy   the  I/O  list.   If  a  slash  separator  occurs  or  the  I/O  list  is 

exhausted  before  all  the  values  in  a  record  are  used,  the  remainder  of 
the  record  is  ignored. 

The  end  of  a  record  is  equivalent  to  a  space  character. 
Spaces  at  the  beginning  of  a  record  are  ignored. 
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An  example  follows. 

The  program  unit  includes: 

DOUBLE  PRECISION  T 

COMPLEX  D,E 

LOGICAL  L,M  ^ 

READ  (1,*)  I,R,D,E,L,M, J,K,S,T,A,B 


The  external  record  contains: 

4  6.3  (3.4E0,4.2e0) ,  (3,  2  )  ,  t,F, ,3*14.6  / 
The  following  values  are  assigned  to  the  I/O  list  elements: 


I/O  List 

Element 

Value 

I 

4 

R 

6.3 

D 

(3.4,4.2) 

£ 

(3.0,2.0) 

L 

.TRUE. 

M 

.FALSE. 

K 

14 

S 

14.6 

T 

14.600 

A,  B,  and  J  will  be  unchanged. 

WRITE 

TYPE 

PRINT 

7.3.4   Liat-Directed  Output  Stateaents 

The  list-directed  WRITE  statem*»nt  transfers  the  elements  in  the  I/O 
list  to  the  specified  logical  unit,  translating  and  editing  each  v^lue 
according  to  the  data  type  of  the  value. 

The  list-directed  TYPE  and  PRINT  statements  are  similar  to  the 
list-directed  WRITE  statement,  except  that  output  is  directed  to  an 
iaplicit  logical  unit. 

List-directed  output  statements  have  the  following  forms: 

WRITE  (u,*(,ERR>s] )  list 

TYPE  *,li8t 

PRINT  *, list 
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h   loqical  unit  number. 


Indicates  list-directed  formatting. 


The  label  of  an  executable  «»titement. 


An  I/O  list. 


The  values  in  the  I/O  list  are  converted  to  character  form  and  written 
in  a  fixed  format  according  to  the  data  type  of  the  value.  Table  7-1 
lists  the  output  forniats  for  each  data  type.  The  I/O  list  is 
required. 

Table  7-1:   List-Directed  Output  Formats 


Data    Type 


Output   Ponat 


L0GICAL*1 

L0GICAL*4 

INTEGER*2 

INTEGER*4 

REAL*4 

REAL* 8 

C0MPLEX*8 

Hollerith 


If 
U 

17 
112 

1PG15.7 
1PG?5.1 

IX,'  (', 
IX, An 


o 

IPG,   -,  • ,• ,  1PG14.7, ') 
(n  is  the  length  of  the 
Hollerith  constant) 


List-directed  output  statements  do  not  produce 
values,  slash  separators,  or  repeated  forms  of 
literals  in  the   I/O   list   itself   are   output 
apostrophes.    Note   that   list-directed  output 
Hollerith  constants  may  not  be  input  using  list 

Each  output  record  begins  with  a  space  for  carr 
output   statement   writes   one  or  more  complete 
9.7).   Each  output  value  is  contained  within  a 
for  Hollerith  constants  that  are  longer  than  a 

Some  examples  follow: 


octal   values,   null 

values.   Alphanumeric 

without   delimiting 

records  that  contain 
-directed  formatting. 

iage   control.    Each 
records  (see  Section 
single  record,  except 
record. 


PRINT  *,  'THE  ARRAY  Z. IS' ,Z 

TYPE  *,'THE  ANSWER  IS',(I,XX(I) ,I«1,10) 

If  a  program  uni«-  consists  of: 

DIMENSION  A(5) 

DATA  A/5* 3. 4/ 

WRITE  (1,*)  'ARRAY  VALUES  FOLLOW' 

WRITE  (1,*)  A, 5 

then  the  following  records  will  be  output: 

ARRAY  VALUES.  FOLLOW 

AAA3.  400000.\.Vw\aaa3.  400000. \AAAA.\.\3.4QOQQQ.\AAAAA-^innnnn 
AA.:.  3.40000  0.  v\  A  A  A , 
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READ 


7.3.5  Onforaatted  Sequential  Input  Stateaent 

The  unformatted  sequential  READ  statement  transfers  one  unformatted 
record  from  the  specified  logical  unit,  and  assigns  the  untranslated 
fields  of  the  record  to  the  I/O  list  elements  in  the  order  in  which 
they  appear,  from  left  to  right.  The  data  type  of  each  element 
determines  the  amount  of  data  input  to  the  element. 

The  unformatted  sequential  READ  statement  has  the  following  form: 

READ  (uI.END^s] [,ERR»s] ) (list] 

u 

A  logical  unit  number. 


list 


The  label  of  an  executable  statement. 


an  I/O  list. 


An  unformatted  sequential  READ  statement  reads  exactly  one  record. 
If  the  I/O  list  does  not  use  all  the  values  in  the  record  (that  is, 
there  are  more  values  in  the  record  than  elements  in  the  list),  the 
remainder  of  the  record  is  discarded.  If  the  number  of  list 
elements  is  greater  than  the  number  of  values  in  the  record,  an 
error  occurs. 

If  an  unformatted  sequential  READ  statement  contains  no  I/O  list, 
one  full  record  is  skipped. 

The  unformatted  sequential  READ  statement  must  only  be  used  to  read 
records  created  by  unformatted  sequential  WRITE  statements. 

Examples  of  unformatted  sequential  input  statements  follow. 

READ  (1)  FIELDl,  FIELD2 

This  statement  reads  one  record  from  logical  unit  1  and  assigns 
values  to  variables  FIELDl  and  FIELD2. 

READ  (8) 

This  statement  advances  logical  unit  8  by  one  record. 

WRITE 


7.3.6   Onforaatted  Sequential  Output  Statements 

The  unformatted  sequential  WRITE  statement  transfers  the 
untranslated  values  of  the  elements  in  the  I/O  list  to  the  specified 
logical  unit  as  one  unformatted  record. 

The  unformatted  sequential  WRITE  statement  has  the  following  form: 

WRITE  (u[ ,ERR«s] ) [list] 
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U 


list 


A  logical  unit  number. 


The  label  of  an  executable  statement. 


An  I/O  list. 


If  an  unformatted  WRITE  statement  contains  no   I/O   list,   one   null 
record  is  output  to  the  specified  unit. 

Some  examples  follow. 

WRITE  (1)   (LIST(K) ,K=1,5) 

This  statement  outputs  the  contents  of  elements  1  through  5  of  array 
LIST  to  logical  unit  1. 

WRITE  (4) 
This  statement  writes  a  null  record  on  logical  unit  4, 


7.4   DIRECT  ACCESS  INPOT/OOTPOT 

Direct  access  I/O  statements  transfer  records,  specified  by  record 
numbers,  to  and  from  direct  access  files.  Each  direct  access  I/O 
statement  contains  a  record  number.  The  OPEN  statement  (Section 
9.1)  establishes  the  attributes  of  the  direct  access  file. 

Unformatted  direct  access  I/O  statements  transfer  records  of  binary 
data  without  translation.  The  DEFINE  FILE  statement  (Section  9.9) 
may  be  used  to  specify  the  attributes  of  the  direct  access  file. 


READ 


7.4.1   Unfornatted  Direct  Access  Input  Statement 

The  unformatted  direct  access  READ  statement  transfers  the  specified 
record  from  the  file  currently  connected  to  the  specified  unit,  and 
assigns  the  untranslated  fields  of  the  record  to  the  I/O  list 
elements . 

The  unformatted  direct  access  READ  stateme.it  has  the  following  form: 
READ  (u'r(,ERRss) )  (list] 


A  logical  unit  number. 


The  record  number. 


list 


The  label  of  an  executable  statement. 


An  I/O  list. 
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If  the  I/O  list  does  not  ase  all  the  fields  in  the  record  (that  is, 
there  are  more  fields  in  the  record  than  elements  in  the  list),  the 
remainder  of  the  record  is  discarded.  If  the  number  of  list 
elements  is  greater  than  the  number  of  record  fields,  an  error 
occurs.    , 

Examples  of  unformatted  direct  access  input  statements  follow. 
READ  (I'lO)  LIST(l) ,LIST(8) 

Mb 

This  statement  -eads  record  10  of  a  file  on  logical  unit  1,  and 
assigns  2  integer  values  to  specified  elements  of  array  LIST. 

READ  (4'IREC)  (RHO (N) , N=l , ? ) 

This  statement  reads  the  record  specified  by  the  value  of  IREC  of  a 
file  on  logical  unit  4,  and  assigns  5  real  values  to  array  RHO. 


WRITE 

7.4.2   Unformatted  Direct  Access  Output  Statement 

The  unformatted  direct  access  WRITE  statement  transfers  the 
untranslated  values  of  the  elements  in  the  I/O  list  to  the  specified 
record  of  the  file  currently  connected  to  the  specified  unit. 

The  unformatted  direct  access  WRITE  statement  has  the  following 
form: 

WRITE  (u'r [,ERR=sl )  [listl 

A  logical  unit  number. 

t 

The  record  number. 

An  executable  statement  label. 


list 


An  I/O  list. 


If  the  values  specified  by  the  I/O  list  do  not  fill  the  record,   the 
unused  portion  of  the  record  is  filled  with  zeroes. 

If  the  I/O  list  specifies  more  data  than  can  fit  into  the  record,  an 
error  occurs. 

You  can  use  a  WRITE  statement  either  to  write  a   new   record   or   to 
update  an  existing  record. 

Example: 

WRITE  (2'35)  (NUM{K) ,K«1,10) 

This  statement  outputs  10  integer  values  to  record  35   of   the   file 
connected  to  logical  unit  2. 
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ENCODE 
DECODE 


7.5   ENCODE  AND  DECODE  STATEMENTS 

The  ENCODE  and  DECODE  statements  transfer  data  according  to  format 
specifiers,  translating  the  data  from  internal  to  character  form, 
and  vice  versa.  Unlike  conventional  formatted  I/O  statements, 
however,  these  data  transfers  take  place  entirely  between  variables 
or  arrays  in  the  FORTRAN  program. 

The  ENCODE  and  DECODE  statements  have  the  following  forms: 
ENCODE (c,f,b(,ERR=s] ) (list] 
DECODE (c,f,b(,ERR=s) ) (list] 


An  integer  expression.  In  the  ENCODE  statement,  c  is  the 
number  of  characters  (bytes)  to  be  translated  to  character 
form.  In  the  DECODE  statement,  c  is  the  number  of  characters 
to  be  translated  to  internal  form.  It  corresponds  to  the 
length  of  a  formatted  record. 


A  format  specifier, 
error  occurs. 


If  more  than  one  record  is   specified. 


an 


The  name  of  an  array,  array  element  or  variable.  b  corresponds 
to  a  formatted  record.  In  the  ENCODE  statement,  b  receives  the 
characters  after  translation  to  external  form.  In  the  DECODE 
statement,  it  contains  the  characters  to  be  translated 
internal  form. 


to 


The  label  of  an  executable  statement. 


list 


An  I/O  list  (see  Section  7.2.6).  In  the  ENCODE  statement,  the 
I/O  list  contains  the  data  to  be  translated  to  character  form. 
In  the  DECODE  statement,  the  list  receives  the  data  after 
translation  to  internal  form. 

Similar  to  a  WRITE  statement,  the  ENCODE  statement  translates  the 
list  elements  to  character  form  according  to  the  format  spe^  fier, 
and  stores  the  characters  in  b.  If  fewer  than  c  characters  are 
transmitted,  the  remaining  character  positions  are  filled  with 
spaces . 

Similar  to  a  READ  statement,  the  DECODE  statement  translates  the 
character  data  in  b  to  internal  (binary)  form  according  to  the 
format  specifier,  and  stores  this  data  in  the  elements  in  the  list. 

If  b  is  an  array,  its  elements  are  processed  in  the  order  of 
subscript  progression.  The  record  buffer  b  must  not  be  the  name  of 
a  virtual  array  or  a  virtual  array  element  (see  Section  5.5). 

The  number  of  characters  that  the  ENCODE  or  DECODE  statement  can 
process  depends  on  the  data  type  of  b  in  that  statement.  For 
example,  since  an  INTEGER*2  array  can  contain  2  characters  per 
element,  the  maximum  number  of  characters  is  twice  the  number  of 
elements  in  that  array. 
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The  interaction  between  the  format  specifier  and  the  I/O  list  (see 
Section  8.7)  for  an  ENCODE  or  DECODE  statement  is  the  same  as  that 
for  a  formatted  I/O  statement. 

An  example  of  the  ENCODE  and  DECODE  statements  follows. 

DOUBLE  PRECISION  INBUF,  OUTBUF 
INTEGER*2  A,B,C,D 
DATA  INBUF/' 12345678'/ 
DECODE  (8,100,  INBUF)  A,B,C,D 
ENCODE  (8, 100, OUTBUF)  D,C,B,A 
100   FORMAT  (412) 


The  DECODE  statement  translates  the  8 
form  (specified  by  statement  100), 
variables  A,B,C,D,  as  follows: 


characters 
and  stores 


in  INBUF  to 
them  in  the 


integer 
integer 


A 

s 

12 

B 

s 

34 

C 

s 

56 

0 

« 

78 

The  ENCODE  statement  translates  the  values  D,C,B,A  to  character  form 
and  stores  the  characters  in  the  variable  OUTBUF,  as  follows: 


OUTBUF  =  '78563412' 
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FORMAT  statements  are  nonexecutable  statements  used, with  formatted  I/O 
statements,  and  with  ENCODE  and  DECODE  statements,  to  specify  the 
editing  and  formatting  of  the  data.  If  input  is  being  performed  or  a 
DECODE  statement  is  being  executed,  the  format  statement  describes  the 
format  in  which  the  input  data  is  interpreted.  If  output  is  being 
performed  or  an  ENCODE  statement  is  oeing  executed,  the  format 
statement  describes  the  format  in  which  the  output  data  will  be 
represented. 

Throughout  this  chapter  a  distinction  is  made  between  "external"  and 
"internal"  form.  External  form  refers  to  the  ASCII  characters  in  a 
data  field  of  a  formatted  record.  Internal  form  refers  to  the  binary 
representation  of  a  data  value. 

1^  ■■      .    ■       .  ■--■     ■  ■-■■  - 

FORMAT  statements  have  the  following  form:    " 
FORMAT  (qlflslf2s2  ...   fnqn) 


4 
f 


Zero  or  more  slash  (/)  record  terminators. 

A  field  descriptor  or  a  group  of  field  descriptors  enclosed   in 
parentheses. 


A  field  separator. 

The  entire  list  of  field  descriptors,  field  separators,  and 
terminators,  including  the  parentheses,  is  called  the 
specification.   The  list  must  be  enclosed  in  parentheses. 


record 
format 


The  field  separators  are  comma  and  slash.  A  slash  is  also  a  record 
terminator.  Section  8.5  describes  in  detail  the  functions  of  the 
field  separators. 

A  field  descriptor  has  the  following  form: 

[r]c[w[.d]] 


The  number  of  times   the   field  descriptor   is   to   be   repeated 
(repeat  count).   If  you  omit  r,  it  is  assumed  to  be  1. 


• 


A  field  descriptor  code  (I ,0,F,E,D,G,L,A,H,X, T, P,Q,$,  or  :). 
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The  external  field  width. 

d 

The  number  of  characters  to  the  right  of  the  decimal  point. 

The  terms  r,  w,  and  d  must  all  be  unsigned  integer  constants.  r,  W/ 
and  d  mv^st  be  less  than  or  equal  to  255;  and  r  and  w  must  be  nonzero. 
The  r  term  is  optional;  however,  you  cannot  use  it  in  some  field 
descriptors.  The  d  term  is  required  in  some  field  descriptors  and  is 
invalid  in  others. 

The  field  descriptors  are: 

•  Integer  —  Iw,  Ow 

•  Logical  —  Lw 

•  Real,  double  precision,  and  complex  —  Fw.d,  Ew.d,  Dw.d,  Gw.d 

•  Character  —  Aw  '"';■■  ■■■^^'•■^  ■■■.:■:/' ■:.^^.,.i"^--v^-;  ;.:■  "v.  . -■  ::/r-^:.'A-'^-''-'-\ 

m     Editing,  and  Hollerith  constant  —  nH,  ',..',  nX,  Tn,   nP,   Q, 
$,  :   (n  is  a  number  of  characters  or  character  positions) 

Section  8.1  describes  each  field  descriptor  in  detail.  (|   v  ; 

':■  .V  ■■  ■  ■'-''"•,  :■  •■*'■■ 
The  first  character  in  an  output  record   generally   contains  carriage 
control  information.   See  Section  8.3  for  more  information. 

During  data  transfers,  the  format  specification  is  scanned  from  left 
to  right.  The  elements  in  the  I/O  list  are  correlated  one-for-one 
with  the  corresponding  field  descriptors.  However,  the  editing  and 
Hollerith  constant  field  descriptors  do  not  require  an  I/O  list 
element.  Section  8.7  describes  in  detail  the  interaction  between 
format  specifiers  and  the  I/O  list. 

You  use  an  I,  0,  or  L  field  descriptor  to  process  integer  and  logical 
data.  You  use  an  F,  E,  D,  or  G  field  descriptor  to  process  real, 
double  precision,  and  complex  data. 

Section  8.8  summarizes  the  rules  for  writing  FORMAT  statements. 

You  can  create  a  format  during  program  execution  by  using  a  run-time 
format  instead  of  a  FORMAT  statement.  Section  8.6  describes  run-time 
formats. 


f- 


8.1   FIELD  DESCRIPTORS 

A  field  descriptor  describes  the  size  and  format  of  a  data  item  or  of 
several  data  items;  each  data  item  in  the  external  medium  is  called 
an  external  field.  The  following  sections  describe  each  of  the  field 
descriptors  in  detail.  The  field  descriptors  ignore  leading  spaces  in 
the  external  field,  but  treat  embedded  and  trailing  spaces  as  zeroes. 


8.1.1   I Tield  Descriptor 

The  I  field  descriptor  specifies  transfer  of  decimal   integer   values. 
It  has  the  following  form: 
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The  corresponding  I/O  list  element  must  be  of  either   integer  or 
logical  data  type. 

Rules  in  Effect  for  Data  Input: 

•  The  I  field  descriptor  specifies  that  w  characters  are  read 
from  the  external  field,  interpreted  as  a  decimal  integer 
value,  and  assigned  to  the  corresponding  I/O  list  element. 

•  The  external  data  must  be  an  integer  constant;  it  cannot 
contain  a  decimal  point  or  exponent  field. 

•  If  the  external  data  value  exceeds  the  maximum  allowed 
magnitude  of  the  corresponding  list  element,  an  error  occurs. 

•  If  the  first  nonblank  character  of  the  external  field  is  a 
minus  sign,  the  field  is  treated  as  a  negative  value. 

•  If  the  first  non'clank  character  is  a  plus  sign,  or  if  no  sign 
appears  in  ^.he  field,  the  field  is  treated  as  a  positive 
value. 

•  An  all-blank  field  is  treated  as  a  value  of  0. 
Input  Example: 

External  Field 


Format 
I« 


2788 
-26 

AAAAAA312 
2   8 


Internal  Value 

2788 
-26 
312 

2008 


Rules  in  Effect  for  Data  Output: 

•  The  I  field  descriptor  specifies  output  of  the  value  of  the 
corresponding  I/O  list  element,  right  justified,  to  an 
external  field  w  characters  long,  as  a  decimal  integer. 

•  If  the  value  does  not  fill  the  field,  leading  spaces  are 
inserted.  _,. 

•  If  the  value  exceeds  the  field  width,  the  entire  field  i^ 
f/llsd  with  asterisks. 

•  If  the  value  of  the  list  element  is  negative,  the  field  will 
have  a  minus  sign  as  its  leftmost,  nonblank  character.  The 
term  w  must  therefore  be  large  enough  to  provide  for  a  minus 
sign,  when  necessary. 

•  Plus  signs  are  suppressed. 
Output  Example: 


Fornat 


Internal  Value 


n 

284 

tv 

-284 

fft 

174 

It'- 

3244 

ll 

-473 

IT 

29.812 

External  Representation 


284 

-284 

174 
** 

*** 
Not  permitted:  error 
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8.1.2  0  Field  Descriptor 

The  0  field  descriptor  specifies  transfer  of  octal  integer  values.   It 
has  the  following  form: 


The  corresponding  I/O  list   e'*ment  must 
logical  data  type. 

Rules  in  Effect  for  Data  Input; 


be  of  either   integer  or 


•  The  0  field  descriptor  specifies  that  w  characters  are  read 
from  the  external  field,  interpreted  as  an  octal  value,  and 
assigned  to  the  corresponding  I/O  list  element. 

•  The  external  field  can  contain  only  the  numerals  0  through  7; 
it  cannot  contain  a  sign,  a  decimal  point,  or  an  exponent 
field. 

•  An  all-blank  field  is  treated  as  a  value  of  0. 

•  If  the  value  of  the  external  data  exceeds  the  allowed  size  of 
the  corresponding  list  element,  an  error  occurs. 


Input  Example: 

Internal 

Format 

External  Fii 

eld 

Decimal  Value 

09 

77777 

32767 

04 

31274 

1623 

06 

15AAAA 

53248 

03 

97A 

Not 

permitted:  error 

Rules  in  Effect  for  Data  Output: 

•  The  0  field  descriptor  specifies  output  of  the  octal  value  of 
the  corresponding  I/O  list  element,  right  justified,  to  an 
external  field  w  characters  long,  as  an  octal  integer. 

•  No  signs  are  output;  a  negative  value  is  transmitted  in  its 
octal  (2's  complement)  form. 

•  If  the  value  does  not  fill  the  field,  leading  spaces  are 
inserted. 

•  If  the  value  exceeds  the  field  width,  the  entire  field  is 
filled  with  asterisks. 


Output  Example: 

Format    Internal  (Decimal)  Value 


0€ 

02 
04 
OS 


32767 

-32767 

14261 

27 

13.52 


External  (octal) 
Representation 

A77777 
100001 
** 

AA33 

Not  permitted:  error 


• 
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8.1.3   P  Field  Descriptor 

The  F  field  descriptor  specifies  the  transfer  of  real  or  double 
precision  values.   It  has  the  following  form: 

Fw.d 

The  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  data  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 

Rules  in  Effect  for  Data  Input: 

•  The  F  field  descriptor  specifies  that  w  characters  are  read 
from  the  external  field,  interpreted  as  a  real  or  double 
precision  value,  and  assigned  to  the  corresponding  I/O  list 
element.  Any  decimal  point,  signs,  or  exponent  field  present 
in  the  external  field  are  included  in  the  w  count,  and  d  is 
part  of  w. 

•  If  the  w  characters  include  a  decimal  point,  the  position  of 
the  point  is  used.  If  the  w  characters  do  not  include  a 
decimal  point,  the  decimal  point  is  placed  before  the 
rightmost  d  digits  of  w. 

•  If  the  w  characters  include  an  exponent  field  (see  Section 
2.3.2  for  real  constants  and  Section  2.3.3  for  double 
precision  constants) ,  the  exponent  is  used  to  evaluate  the 
number's  magnitude  before  the  decimal  point  position  is 
determined. 

•  If  the  first  nonblank  character  of  *  he  external  field  is  a 
minus  sign,  the  field  is  treated  as  a  negative  value. 

•  If  the  first  nonblank  character  is  a  plus  sign,  or  if  no  sign 
appears  in  the  field,  the  field  is  treated  as  a  positive 
value. 

•  An  all-blank  field  is  treated  as  a  value  of  0. 

•  w  must  be  greater  than  or  equal  to  d+1. 
Input  Examples: 


Format 


External  Field 


Internal  Value 


F8.5 
F8.5 
F8.5 
F5.2 


123456789 
-1234.567 
24.77E+2 
1234567.89 


123.45678 
-1234.56 
2477.0 
123.45 


Rules  in  Effect  for  Data  Output; 

•   The  F   field  descriptor    transfers 


the 


value 


of 


the 


corresponding  I/O  list  element,  rounded  to  d  decimal  positions 
and  right  justified,  to  an  external  field  w  characters  long. 

If  the  value  does  not   fill   the   field,   leading   spaces   are 
inserted . 

If  the  value  exceeds  the  field  width,   the   entire   field   is 
filled  with  asterisks. 
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•  Plus  signs  are  suppressed. 

•  w  must  be  greater  than  or  equal  to  d+1;  however/  the  field 
wi  itr.  should  be  large  enough  to  contain  the  number  of  digits 
after  the  point,  plus  1  for  the  point,  plus  the  number  of 
digits  to  the  left  of  the  point,  plus  1  for  a  possible 
negative  sign. 


Output  Examples:: 

Format 

F8.5 

F9.3 

F2.1 

F10.4 

F5.2 

F5.2 


# 


Internal  Value 

2.3547188 

8789.7361 

51.44 

-23.24352 

325.013 

-.2 


External  Representation 

A2. 35472 

A8789.736 
** 

AA-23.2435 

***** 

-0.20 


8.1.4   B  Field  Descriptor 

The  B  field  descriptor  specifies  transfer  of  real  or  double  precision 
values  in  exponential  form.   It  nas  the  following  form: 

Ew.d 

The  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  data  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 

Rules  in  Effect  for  Input: 

On  input,  the  E  field  descriptor  does  not  differ  from  the  F  field 
descriptor . 


Input  Examples: 
Format 


External  Field 


Internal  Value 


E9.3 
E12.4 
E15.3 
E12.5 


734.432E3 
AA1022.43E-6 
52. 3759663 AAAAA 
210.5271D+10 


0.734432E+6 
0.102243E-2 
0.523759E+2 
0.2105271E+13 


In  the  last  example,  note  that  the  E  field  descriptor  treats  the  D 
exponent  field  indicator  as  an  E  indicator  if  the  I/O  list  element  is 
single  precision. 

Rules  in  Effect  for  Output: 

•  The  E  field  descriptor  transfers  the  value  of  the 
corresponding  I/O  list  element,  rounded  to  d  decimal  digits 
and  right  justified,  to  an  external  field  w  characters!  long. 

•  If  the  value  does  not  fill  the  w  characters,  leading  spaces 
are  inserted. 

•  If  the  value  exceeds  the  w  characters,  the  entire  field  is 
filled  with  asterisks. 
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Output  is  in  a  standard  form:  that  is,  a  minus  sign  if  the 
value  is  negative,  an  optional  0,  a  decimal  point,  d  digits  to 
the  right  of  the  decimal  point,  and  a  4-character  exponent  in 
one  of  the  following  two  forms: 


E+nn 
E-nn 


nn 


A  2-digit  integer  constant. 


•  Plus  signs  are  suppressed. 

•  w  must  be  greater  than  or  equal  to  d+7;  that  is,  the  field 
wid^h  must  not  be  stated  to  be  less  than  the  number  of  digits 
after  the  point,  plus  1  for  the  point,  plus  1  for  the  0  before 
the  point,  plus  one  for  a  possible  negative  sign,  plus  4  for 
the  exponent. 


Output  Examples: 

Format 

E9.2 

E12.5 

E12.3 

E10.3 

E5.3 


Internal  Value 

475867.222 
475867.222 

0.00069 

-0.5555 

56.12 


External  Representation 

A0.4  8E+06 

A0.47587E+06 

AAA0.690E-03 

-0.556E+00 
***** 


8.1.5  D  Field  Descriptor 

The  D  field  descriptor  specifies  transfer  of  real  or  double  precision 
values  in  exponential  form  with  a  D  instead  of  an  E.  It  has  the 
following  form: 


Dw.d 

The  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  data  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 

Rules  in  Effect  for  Input: 

On  input,  the  D  field  descriptor  does  not  differ  from  the  F  or  E  field 
descriptors. 


Input  Examples: 
Format 


External  Field 


Internal  Value 


D10.2 
D10.2 
D15.3 


12345aa.^aa 

AA123.4  5AA 
367.4981763D-04 


0.1234500000D+8 
0.1234500000D+3 
0.3674981763D-1 


Rules  in  Effect  for  Input: 

There  is  only  one  difference  between  the  D  and  E  descriptors  on 
output:  If  you  use  the  D  descriptor,  the  letter  D  is  output  instead 
of  the  letter  E. 
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Output  Examples: 

Format 

D14.3 

D23.12 

D9.6 


Internal  Value 

0.0363 
541^,87625793 
X.2 


External  Value 

A.!v'^.\a0.363D-01 

.\AA.\\0.54138  762  579  3D+0  4 
ft******** 


8.1.6  G  Field  Descriptor 

The  G  field  descriptor  specifies  transfer  of  real  or  double  precision 
values,  combining  E-  or  F-type  formats  according  to  the  size  of  the 
number  being  output.   It  has  the  following  form: 

Gw.d 

Th2  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  data  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 

Rules  in  Effect  for  Input: 

On  input,  the  G  field  descriptor  does  not  differ  from  the  F,  E,  or  D 
descriptors. 

Rules  in  Effect  for  Output; 

•  The  G  field  descriptor  transfers  the  value  of  the 
corresponding  I/O  list  element,  rounded  to  d  decimal  positions 
and  right  justified,  to  an  external  field  w  characters  long. 

•  The  form  in  which  the  value  is  written  is  a  function  of  the 
magnitude  of  the  value,  as  described  in  Table  8-1. 


Table  8-1:   Effect  of  Data  Magnitude  on  G  Poraats 


Data  Hagnituda 


m  <  0.1 
0. 1  <  m  <  1.0 
1.0  <  m  <  10.0 


Effective  Conversion 


Ew.d 
F(w-4).d,  '.VikAA* 
F(w-4)  .(d-1)  ,  '.v.. A' 


ldd-2  <  m  <  lOd-1 
IOd-1  <  m  <  lOd 
m  >  lOd 


« 


P(w-4).l.  •  AA^' 
F(w-4).0,  ' ^AAA* 
Ew.d 


NOTE:   The  '  \.\aa'  in  the  second  column  of  Table   8-1   specifies   that 
four  spaces  are  to  follow  the  numeric  data  representation. 
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•  Plus  signs  are  suppressed. 

•  w  must  be  greater  than  or  equal  to  d-r7;  that  is,  the  field 
width  roust  not  be  stated  to  be  less  than  the  number  of  digits 
after  the  point,  plus  1  for  the  point,  plus  1  for  a  possible  0 
before  the  point,  plus  1  for  a  possible  negative  siyi.  plus  4 
for  a  possible  expci.  .it. 


Output  Examples: 


External  Representation 

A0.123457E-01 

-0.123457  -V^ 
VM.234  57  .  v. 

A.. 12.  34 57. 

A.M23.4  57AAAA 
A-1234.57.wVk 
.V>1234  5.7aaaa 
A.M23457.JWVVA 
-0.123457E+07 

Compare  the  above  examples  with  the  following  examples,  which  show  the 
same  values  output  with  an  equivalent  F  field  descriptor. 

External  Representation 

AAAAA0.012346 
AAA^-0.  123457 


Format 

Internal  Value 

G13.6 

0.01234567 

G13.6 

-0.12345678 

G13.6 

1.23456789 

G13.6 

12.34567890 

G13.6 

123.45678901 

G13.6 

-1234.56789012 

G13.6 

12345.67890123 

G13.6 

123456.78901234 

G13.6 

-1234567.89012345 

Format 

Internal  Value 

F13.6 

0.01234567 

F13.6 

-0.12345678 

F13.6 

1.23456789 

F13.6 

12.34567890 

F13.6 

123.45678901 

F13.6 

-1234.56789012 

F13.6 

12345.67890123 

F13.6 

123456.78901234 

F13.6 

-1234567.89012345 

AAA.V.I, 
AAA^M2, 
AAA123, 
A-1234 


234568 
345679 
456789 
567890 


A12345. 678901 
123456.789012 


8.1.7  L  Field  Descriptor 

The  L  field  descriptor  specifies  transfer  of  logical  data.   It  has  the 
following  form: 

Lw 

The  corresponding  I/O  list   element  must   be   of  uither   integer   or 
logical  data  type. 

Rules  in  Effect  for  Input: 

•  The  L  field  descriptor  specifies  that  w  characters  are  read 
from  the  external  field. 

e  If  the  first  nonblank  character  of  the  field  is  the  letter  T 
or  t,  the  value  .TRUE.  is  assigned  to  the  corresponding  I/O 
list  element. 

•  If  the  first  nonblank  character  of  the  field  is  the  U»-ttr  F 
or  f,  or  if  the  entire  field  is  blank,  the  value  .FALSE.  is 
assigned . 

•  Any  other  value  in  the  external  field  produces  an  error. 
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Rules  in  Effect  for  Output: 

•  The  L  field  descriptor  specifies  outpi  of  eitner  the  letter  T 
(if  the  value  of  the  cot. responding  I/O  list  element  is 
.TRUE.)»  or  the  letter  F  (if  the  value  is  .FALSE.)  to  an 
external  field  w  characters  long. 

•  The  letter  T  or  F  is  in  the  rightmost  position  of  the  field, 
preceded  by  w-1  spaces. 


Output  Examples: 
Format 


u 


Internal  Value 

.TRUE. 
.FALSE. 


External  Representation 

aaaat 

F 


8.1.8  A  Field  Descriptor 

The  A  field  descriptor  specifies  the  transfer  of  Hollerith  values.   It 
has  the  following  form: 

Aw   : 

The  corresponding  I/O  list  element  can  be  of  any  data  type,  since   you 
can  use  variables  of  any  data  type  to  store  Hollerith  data. 

The  value  of  w  must  be  less  than  or  equal  to  zS"". 

Rules  in  Effect  for  Input: 

<*  The  A  field  descriptor  transfers  w  characters  from  the 
external  record  and  assigns  them  to  the  corresponding  I/O  list 
element . 

•  The  maximum  number  of  characters  that  can  be  stored  depends  on 
the  size  of  the  I/O  list  element,  as  follows: 


I/O  List 
Elenent 


BYTE 
LOGICAL*! 


Maximum  Number 
of  Charactera 

t 


L0GICAL*4 

INTEGER*2 

INTEGER*4  , 

REAL       ' 

REAL*8 

DOUBLE  PRECISION 

COMPLEX 


i 
t 
« 

i 

I 


•  If  w  is  greater  than  the  maximum  number  of  characters  that  can 
be  stored  in  the  corresponding  I/O  list  element,  only  the 
rightmost  characters  are  assigned  to  that  elemer  Leftmost 
excess  characters  are  ignored. 

•  If  w  is  less  than  the  number  of  characters  th^n  can  be  stored, 
w  characters  are  assigned  to  the  list  element,  left  justified, 
and  trailing  spaces  are  added  to  fill  the  element. 
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• 


Input  Examples: 

Format 

A6 
A6 
A6 
A6 


External  Field 

PAGEAl 
PAGEA* 
PAGEAf 
PAGEA# 


Internal  Value 

«  (LOGICAL*!) 

A#  (INTEGER* 2) 

GEA#  (REAL) 

PAGEA#AA  (DOUBLE  PRECISION) 


Rules  in  Effect  for  Output: 


•  The  A  field  descriptor  specifies  output  of  the  contents  of  the 
corresponding  I/O  list  element  to  an  external  field  w 
characters  long. 

•  If  w  is  greater  than  the  size  of  the  list  element,  the  data 
appears  in  the  field,  right  justified,  with  leading  spaces. 

•  If  w  is  less  than  the  size  of  the  list  element,  only  the 
leftmost  w  characters  are  transferred. 


Output  Examples: 

Format 

A5 
A5 
A5 


Internal  Value    External  Representation 


OHMS 

VOLTSaaa 

AMPERESA 


AOHMS 
VOLTS 
AMPER 


8.1.9  H  Field  Descriptor 

The  H  field  descriptor  specifies  transfer  of  data  between  the  external 
record  and  the  storage  location  of  the  H  field  descriptor  itself.  It 
has  the  form  of  a  Hollerith  constant: 


nHclc2c3 


en 


n 


ci 


The  number  of  characters  to  be  transferred. 


An  ASCII  character. 
Rules  in  Effect  for  Input: 

•  The  H  field  descriptor  specifies  acceptance  of  n  characters 
from  the  external  field  and  their  assignment  to  the  same 
storage  location  as  the  characters  of  the  H  descriptor,  which 
are  overlaid  by  the  input  data,  character  for  character. 

Rules  in  Effect  for  Output: 

•  The  H  field  descriptor  specifies  output  of  the  n  characters 
following  the  letter  H  to  the  external  field. 

An  example  of  the  H  field  descriptor  usage  follows. 

TYPE      100 

100    FORMAT     (41H,ENTER.\PR0GRAM.  TITLE, />UP\TO.\20->CHARACTERS) 
ACCEPT       200 

200    FORMAT     (20H.  .TITLE. \GOES/.HEREAAA) 
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The  TYPE  statement  transfers  the  characters  from  the  H  field 
descriptor  in  statement  100  to  the  user's  terminal.  The  ACCEPT 
statement  accepts  the  response  from  the  keyboard,  placing  the  input 
data  in  the  H  iield  descriptor  in  statement  200.  The  new  characters 
replace  the  words  TITLE  GOES  HERE.  If  the  user  enters  less  than  20 
characters,  the  remainder  of  the  K  ''ield  descriptor  is  filled  with 
spaces  v-o  the  right.  The  H  field  de^^riptor  may  also  be  specified  as 
an  alphanumeric  literal. 

In  an  alphanumeric  literal,  the  apostrophe  is  written  as  two 
apostrophes.   For  example: 

50  FORMAT  ( 'TODAY  '  '  SADATE.MS:.\' ,  12,  ' /' »  12, '/' r  12) 

A  pair  of  apostrophes  used  in  this  way  is  considered  a  single 
character . 


8.1.10  X  Field  Descriptor 

The  X  field  descriptor  specifies  skipping  character  positions.  It  has 
the  following  form: 

nX 

The  tetm  n  specifies  how  many  character  positions  are  to  be  skipped. 
The  value  of  n  must  be  greater  than  or  equal  to  1  and  less  than  or 
equal  to  255. 

Rules  in  Effect  for  Input: 

•  The  X  field  descriptor  specifies  that  the  next  n  character   in 
the  input  record  are  to  be  skipped. 

Rules  in  Effect  for  Output: 

•  The  X  field  descriptor  specifies  output  of   n   spaces   to   the 
external  record.   For  example: 

WRITE  (6,90)  NPAGE 
90   FORMAT  ( 13HlPAGE,\NUMBERA,  I  2,  16X,  23HGRAPHIC.\ANALYSIS,  aCONT.  ) 

The  WRITE  statement  prints  a  record  similar  to; 

PAGE  NUMBER  nn  GRAPHIC  ANALYSIS,   ^NT. 

where  nn  is  the  carrent  value  of  the  variable  NPAGE.  Note  that  the 
numeral  1  in  the  first  H  field  descriptor  is  not  printed  but  is  used 
to  advance  the  printer  paper  to  the  top  of  a  new  page.  (Section  8.3 
describes  printer  carriage  control.) 


8.1.11  T  Field  Descriptor 

The  T  field  descriptor  specifies  the  position  of  the  next  character  to 
be  tieated  relative  to  the  start  of  the  external  record.  It  has  the 
following  form: 

Tn 


The  term  n  indicates  the  position  in  the  external  record  of  the  next 
character  to  be  treated.  The  value  of  n  must  be  greater  than  or  equal 
to  I  but  not  greater  than  the  number  of  characters  allowed  in  the 
record. 
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Rules  in  Effect  for  Input: 

•  In  an  input  statement,  the  T  field  descriptor  specifies  that 
data  is  to  be  input  starting  with  the  nth  character  position. 
For  example: 

»       v 

10   FORMAT  (T7,A3,T1,A3) 
READ  (5,10)  J,K 

In  the  examplvj,  a  3-character  string  starting  at  character  position  7 
in  the  external  record  is  read  first,  followed  by  a  3-character  string 
starting  at  character  position  1;  however,  any  order  can  be 
specified. 

'  i- 

Rules  in  Effect  for  Output:    '  *         ' 

•  In  an  output  statement,  the  T  field  descriptor  specifies  that 
the  data  is  to  be  output  starting  at  the  nth  character 
position  of  the  external  record.   For  example:     '        * 

PRINT  25 
25   FORMAT  (T50  ,  •C0LUMN..2  '  ,T20  , 'COLUMNaI  '  ) 

These  statements  will  print  "COLUMN  1"  at  position  20  and  COLUMN  2"  at 
position  50.   The  remainder  of  the  line  contains  blank  characters. 


8.1.1?  Q  Field  Descriptor 

The  Q  field  descriptor  specifies  assignment  to  the  corresponding 
variable  in  the  I/O  list  of  the  number  of  characters  in  the  input 
record  remaining  to  be  transferred  during  a  READ  operation.  It  has 
the  following  form: 


The  corresponding  I/O  list  element  must  be  of  integer  or  logical  data 
type. 

For  example: 

READ  (4,1000)  XRAY,KK,NCHRS, (ICHR(I) ,I-1,NCHRS) 
1000  FORMAT  (E15 . 7 , 1  4 ,Q, 80A1) 

The.se  input  s' - -.ements  read  two  fields  into  the  variables  XRAY  and  KK. 
The  number  characters  remaining  in  the  record  is  stored  in  NCHRS 
and  exactly  '  ,t  many  characters  are  read  into  the  array  ICHR.  By 
placing  the  j  descriptor  first  in  the  format  specification,  you  can 
determine  tY      actual  length  of  the  input  record. 


In  an  outp'* 
that  the  c 


statement,  the  Q  field  descriptor  has   no 
responding  I/O  list  element  is  skipped. 


effect  except 


8.1.13   Dollar  Sign  Descriptor 

The  dollar  sign  character  ($)  used  as  a  field  descriptor  suppresses, 
on  output,  a  carriage  return  at  the  end  of  the  line  when  the  first 
character  of  the  line  is  a  space  or  a  plus  sign  (see  Section  8.3  on 
carriage  control  characters).   In  an  input  statement,  the  $  descriptor 
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is  ignored.  The  $  descriptor  is  intended  primarily  for  interactive 
I/O;  it  leaves  the  terminal  print  position  at  the  end  of  the  text 
(rather  than  returning  it  to  the  left  margin)  so  that  a  typed  response 
will  follow  the  output  on  the  same  line. 

Thus,  the  statements 

TYPE  100 
100  FORMAT  CaENTERARADIUSAVALUEA* ,$) 

ACCEPT  200, X 
200  FORMAT  (F6.2) 

produce  a  message  on  the  terminal  in  the  following  form: 

enteraradiusavalue   < 

Your  response  (in  this  case,  12.)  can  then  go  on  the  same  line,  as 
follows : 

■     ENTERARADIUSAVALUEA12.  ■   '  , 

Note  that  the  $  used  as  a  carriage  control  character  accomplishes  the 
same  result.   The  following  two  formats  are  equivalent: 

■  ,         f 
200  FORMAT  ( HHaSIGNAHERE: ,$) 

200  FORMAT  ( 11H$SIGNAHERE : ) 


• 


8.1.14   Colon  Descriptor  j 

The  colon  character  (:)  used  as  a  field  descriptor  terminates  format 
contro'  '■  *"  no  more  items  are  in  the  I/O  list.  The  :  has  no  effect  if 
I/O  list  3  ♦■  ms  remain.   For  example: 

PRirjT    IOC, 3 

PRINT    200,4 
100   F0RMAT('AI=' ,12,  •aJ=',I2) 
200   FORMAT('AK=' ,12, : , '  ,L=' ,12) 

These  statements  print  the  following  two  lines: 

I»A3AJ»  .'  .    ^ 

K»a4  ■    - 

Section  8.7  describes  format  co»  crol  in  detail. 


8.1.15   Complex  Data  Editing 

A  coitiplex  value  is  an  ordered  pair  of  re  I  values.    Therefore,   input 

or   output   of   a   complex   value  is   governed   by   two   real   field 

descriptors,  using  any  combination  of  the  forms  Fw.d,  Ew.d,   Dw.d,   or 
Gw.d. 

Rules  in  Effect  for  Input: 

•   In  an  input  statement,  the  two  successive  fields  are  read   and 

assigned   to   a   complex   I/j   list   f ' °ment   as   its  real  and 

imaginary  parts,  respectively. 
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Input  Examples: 

Pornat 

F8.5,F8.5 
E9.i,F9.3 


External  Field 

1234567812345.67 
734.432E8123456789 


Internal  Value 

123.45678,  12345.67 
734.432E8,  123456.789 


Rules  in  Effect  for  Output: 


In  an  output  statement,  the  two  parts  of  a  complex  value  are 
transferred  under  the  control  of  repeated  or  successive  field 
descriptors . 

The  two  parts  are  transferred  consecutively,  without 
punctuation  or  spacing,  unless  the  format  specifier  states 
otherwise. 


Output  Examples: 
Format 


Internal  Value   External  lepresentation 


2F8.5  2.3547188,  3.456732 

E9.2,'.  ,  .',E5.3   47587.222,  56.123 


A2. 35472  3.45673 
A0.48E  +  06  ,..***•• 


8.1.16  Scale  Factor 

A  scale  factor  is  a  value  used  m  a  format  specifier  which  determines 
the  location  of  tie  decimal  point  in  real,  double  precision,  or 
complex  values. 

The  scale  factor  has  the  form: 
nP 


A  signed  or  unsigned  integer  constant  in  the  range  -127  through 
♦127.  It  specifies  the  number  of  positions  to  the  left  or  right 
that  the  decimal  point  is  to  move. 

Rules  in  Effect  for  both  input  and  Output: 

e   If  you  do  not  use  a  scale  factor,  a  default  scale  factor  of  OP 
applies. 

•  The  scale  factor  is  set  to   OP   at   the   start   of   every   I/O 
statement . 

e  K   scale  fictor  applies  to  dll  subsequent  F,  E,  D,  or   G   field 
descriptors,  until  a  new  scale  factor  is  specified. 

e   The  scale  factor   can   appear   as   a   field   descriptor.    For 
exaaiple: 

10  FORMAT  (X,  14,  B6 . 3 ,  IP,  2A3,  212,  2F5.3,  El. 5) 

In  the  example,  the  3P  applies  to  the  2F5.3  and  the   St. 5   but 
not  to  the  E6.}  or  the  X,  I ,  or  A  descriptors. 
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•  h  scale  factor  can  appear  as  a  prefix  to  an  F,  E,  D,  or  G 
field  descriptor.   For  example: 

10  FORMAT  (3P2FS.3,  E8.5) 

In  the  exasiple,  3P  applies  both  to  2F5.3  and  to  E8.S. 

•  Poriaat  reversion  (see  Section  8.7)  has  no  effect  on  the  scale 
factor.   For  example: 

10  FORMAT  (X,  F3.2,  E3.2,  2PE4.2,  F4.2,  3PE4.2) 

In  this  example,  suppose  two  records  are  read,  reversion 
occurring  to  the  start  of  the  format.  In  the  second  record, 
the  active  scale  factor  3P  now  applies  to  F3.2. 

•  A  scale  factor  of  OP  can  be  reinstated  only  by  an  explicit  OP 
specification  in  the  format. 

Additional  Rules  in  Effect  for  Input: 

•  If  the  external  field  contains  an  exponent,  the  scale  factor 
has  no  effect. 

•  If  the  external  field  does  not  contain  an  exponent,  tht.  scale 
factor  specifies  multiplication  of  the  data  by  10**-n  and 
assignment  of  it  to  the  corresponding  I/O  list  element. 

For  example,  a  2P  scale  factor  multiplies  an   input   value  by 

.01,   moving   the  decimal  point  two  places  to  the  left.   A  -2P 

scale  factor  multiplies  an  input  value  by  100,  moving  the 
decimal  point  two  places  to  the  right. 


Input  Examples 

Faraat 

3PE10.5 

3PE10.5 

-3PE10.5 


liternal  Field 

..  .3  7.614 

^.37.614E2 

A<Vk..37.614 


Internal  Value 

.037614 
3761.4 
37614.0 


Additional  Rules  in  Effect  for  Out^^ut: 

•  Scale  factors  apply  only  to  data  output.  The  values  of  the 
I/O  list  variables  do  not  change. 

•  For  the  F  field  descriptor,  the  value  of  the  I/O  list  element 
is  multiplied  by  10**n  before  transfer  to  the  external  record. 
Thus,  a  positive  scale  factor  mov.*s  the  decimal  point  to  the 
right;  a  negative  scale  factor  moves  the  decimal  point  to  the 
left. 

•  For  the  E  or  D  field  descriptor,  the  basic  real  constant  part 
of  the  value  (see  Section  2.3.2)  is  multiplied  by  10**n,  and  n 
is  subtracted  from  the  exponent.  Thus,  a  positiv*  scale 
factor  moves  the  decimal  point  to  the  right  and  decreases  the 
exponent;  a  negative  scale  factor  moves  the  decimal  point  to 
*'he  l«ft  and  increases  the  exponent. 
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•  k  scale  factor  has  no  effect  on  a  G  fie^d  descriptor  if  the 
magnitude  of  the  data  to  be  output  is  within  the  effective 
range  of  the  descriptor,  because  the  G  f'?ld  descriptor 
supplies  its  own  scaling  function.  Moreover,  the  G  field 
descriptor  functions  as  an  E  field  descriptor  if  the  magnitude 
of  the  data  value  is  outside  its  rar.ge.  In  this  case,  the 
scale  factor  has  the  same  effect  as  for  the  E  field 
descriptor. 


Output  Examples: 


Poraat 


Internal  Valu« 


Exte.nal  Representation 


1PE12.3 
1PE12.2 
1PE12.2 


•270.139 
■270.139 
•270.139 


AA-2.701E+02 
AA.^-2.70E+02 
AA/-0.0  3E+04 


8.1.17   Repeat  Counts  and  Gtoup  Repeat  Counts 


You  can 
number 
with  an 
repetitions, 
the  following 


apply  most  field  descriptors  (except  H,   T,   P,   or   X)   to   a 

of   successive  data  fields  by  preceding  that  field  descriptor 

unsigned  nonzero  inceger  constant   specifying   the   number   of 

This   constant   is  called  a  repeat  count.   For  example, 

two  statements  are  equivalent: 


20  FORMAT  ( E12 . 4 , E12 . 4 , E12 . 4 , 15 , 15, 15, 15) 
20  FORMAT  (3E12.4,4I5) 


Similarly,  you  can  apply  a  group  of  field  descriptors  repeatedly  to 
data  fields  by  enclosing  these  field  descriptors  in  parentheses  and 
preceding  them  with  an  unsigned  nonzero  integer  constant.  The  integer 
constant  is  called  a  group  repeat  count.  For  example,  the  following 
two  statements  are  equivalent: 


50   FORMAT  ( 2 1  8 , 3 (F8 . 3 , E15. 7 ) ) 


50   FORMAT  ( I  8 , 18 , F8 . 3 , E15 . 7 , F8 . 3 , E15 . 7 ,F8. 3 , E15 . 7) 


An  H  or  X  field  descriptor,  which  could  not  otherwise  be  repeated,  can 
be  enclosed  in  parentheses  and  treated  as  a  group  repeat 
specification.   Thus,  it  could  be  repeated  a  desired  number  of  times. 


If  you  do 
assumed . 


not  specify  a  group  repeat  count,  a  default  count   of   1   is 


8.1.18   Default  Field  Descriptora 

If  you  write  the  field  descriptors  I,  0,  L,  F,  E,  0,  G,  or   A 
specifying   a   w  or  w.d,  iefault  values  are  supplied  based  on 
type  of  the  I/O  list  element.   Note  that  for  F,  E,  D,  and  G, 
not  specify  only  w  or  d;   you  must  specify  w.d  or  nothing. 

Table  8-2  lists  the  default  values  for  w  and  d. 


without 
the  data 
you  may 
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Table  8-2:  Default  Field  Widths 


Field  Descriptor 


List  Eleaent 
Data  Type 


I, 

0 

INTEGER*2 

I, 

0 

INTEGER* 4 

12 

L 

LOGICAL 

F, 

E, 

G,  D 

REAL,  COMPLEX 

15 

7 

F, 

E, 

G,  D 

DOUBLE  PRECISION 

25 

16 

A 

LOGICAL*!  or  BYTE 

A 

INTEGER*2 

A 

L0GICAL*4, INTEGER*4 

A 

REAL,  COMPLEX 

A 

DOUBLE  PRECISION 

Notice  that  for  the  A  field  descriptor  the  default  is   the   length  of 
the  corresponding  I/O  list  element. 


8.2   CARRIAGE  CONTROL  CHARACTERS 

The  first  character  of  every  record  transferred  to  a  printer  is  not 
printed.  Instead,  it  is  interpreted  as  a  carriage  control  character. 
The  FORTRAN  I/O  system  recognizes  certain  characters  as  carriage 
control  characters.  Table  8-3  lists  these  characters  and  their 
effects. 


Table  8-3:   Carriage  Control  Characters 


Character 


Effect 


A  (space) 

0  (zero) 

1  (one) 
♦  (plus) 

$  (dollar  sign) 


Advances  one  line 

Advances  two  lines 

Advances  to  top  of  next  page 

Does  not  advance  (allows  overprinting) 

Advances  one  line  before  printing  and 
suppresses  carriage  return  at  the  end  of  the 
record 


Any  character  other  than  those  listed  in  Table  8-3  is  treated  as  a 
space  and  is  deleted  from  the  print  line.  Note  that  if  you 
accidentally  omit  the  carriage  control  character,  the  first  character 
of  the  record  is  not  printed. 


8.3   FORMAT  SPECIFICATION  SEPARATORS 

Field  descriptors  in  a  format  specification  are  generally  separated  by 
commas.    You  can  also  use  the  slash  (/)  record  terminator  to  separate 
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current 


field  descriptors.   A  slash  terminates  input  or  output  of  the 
record  and  initiates  a  new  record.   For  example: 

WRITE  (6,40)  K,L,M,N,0,P 
40   FORMAT  (306/16, 2F8 . 4) 

This  statement  is  equivalent  to: 

WRITE  (6,40)  K,L,M 
40   FORMAT  (306) 

WRITE  (6,50)  N,0,P 
50   FORMAT  (I6,2F8.4) 

You  can  use  multiple  slashes  to  bypass  input  records  or  to  output 
blank  records.  If  n  consecutive  slashes  appear  between  two  field 
descriptors,  (n-1)  records  are  skipped  on  input  or  (n-1)  blank  records 
are  output.  The  first  slash  terminates  the  current  record;  the 
second  slash  terminates  the  first  skipped  or  blank  record,  and  so  on. 


However,  n 
result  in 
parentheses 


slashes  at  the  beginning  or  end  of  a   format   specification 
n  skipped  or  blank  records  because  the  opening  and  closing 
the   format   specification  are   themselves   a   record 
initiator  and  terminator,  respectively.   For  example: 


WRITE  (6,99) 
99   FORMAT  ( ' 1 ' ,T51, • HEADINGALINEV/T51, ' SUBHEADINGaLINE' //) 
The  above  statements  produce  the  following  output; 

Column  50,  top  of  page 

t 

HEADING  LINE 

(blank  line) 

SUBHEADING  LINE 
(blank  line) 
(blank  line) 


8.4   EXTERNAL  FIELD  SEPARATORS 


A  field  de 
to  read 
the  extern 
statement 
external  r 
or  spaces, 
to  pad  the 
comma  ove 
This  is  ca 
when  you 
with  the  I 


scriptor  such  as  Fw.d  specifies  that  an  input  s*: 
w  characters  from  the  external  record.  If  the  da 
al   record   contains   less   than 


i   recora   contains   less   than  w  characters, 

would   read   characters   from   the   next   data  f 

ecord,  unless  you  padded  the  short  field  with  lea 

When  the  field  descriptor  is  numeric,  you  can  a 

input  field  by  using  a  comma  to  terminate  the  f 
rrides  the  field  descriptor's  field  width  spe 
lied  short  field  termination,   and   is   particula 

are  entering  data  from  a  terminal  keyboard.  You 
,  0,  F,  E,  D,  G,  and  L  field  descriptors.   For  ex 


atement  is 
ta  field  in 

the  input 
ield  in  the 
ding  zeroes 
void  having 
ield.  The 
ci  f ication. 
rly  useful 

can  use  it 
ample : 


READ  (5,100)  I,J,A,B 
100   FORMAT  (2I6,2F10.2) 


The  above  st<^tements  read  the  following  record: 
1,-2,1.0,35 
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4r   • 


On  execution,  the  following  assignments  occur: 

I  »  1  .        \'V  ■  ■  ,  : 

J  »  -2 

^      ■  ■  ■ 

A  =  1.0 
B  =  0.35 


The  physical  end  of  the  record  also  serves  as  a  field  terminator. 

Note  t"-  the  d  part  of  a  w.d  specification  is  not  affected  by  an 
external  field  separator.  Therefore,  you  should  always  include  an 
explicit  decimal  point  in  the  external  field  for  F,  E,  D  and  G  field 
descriptions. 


You  can  use 
long.    If 
is  considered 


a  comma  to  terminate  only  fields  less   than  w  characters 
a  comma  follows  a  field  of  w  characters  or  more,  the  comma 
part  of  the  next  field. 


Two  successive  commas,  or  a  comma  after  a  field  of  exactly  w 
characters,  constitutes  a  null  (zero-length)  field.  Depending  on  the 
field  descriptor  specified,  the  resulting  value  assigned  is  0,  0.0,  or 
O.DO,  or  .FALSE.. 


You  cannot  use  a  comma  to  terminate  a  field  that  is  controlled  by  an 
A,  H,  or  alphanumeric  literal  field  descriptor.  However,  if  the 
record  reaches  its  physical  end  before  w  characters  are  read,  short 
field  termination  occurs;  and  the  characters  that  were  input  'Ute 
assigned  successfully.  Trailing  spaces  are  appended  to  fill  the 
corresponding  I/O  list  element  or  the  field  descriptor. 


8.5   RUN-TIME  FORMATS 


A  run-time  format  is  a  format  stored  as  Hollerith  or  alphanumeric  data 
in  an  array.  In  the  I/O  statement  referencing  the  format,  you  write 
the  name  of  the  array  instead  of  a  format  statement  label  (see  Section 
7.2.2).   Virtual  arrays  must  not  be  used  for  this  purpose. 

A  run-time  format  in  an  array  has  the  same  form  as  a  FORMAT  statement, 
without  the  word  FORMAT  and  the  statement  label.  The  opening  and 
closing  parentheses  are  required. 

Run-time  formats  are  especially  useful  when  you  do  not  know  exactly 
which  field  descriptors  will  be  required  until  execution  time.  To 
solve  this  problem,  you  can  write  a  program  to  create  a  format,  the 
choice  of  field  descriptors  being  made  to  depend  on  the  attributes  of 
the  data.   For  example: 

REAL  TABLE(10,5) 

REAL  FMT(ll) ,FBIG,FMED,PSML 

DATA  FMT(l)/' (•/,FMT(11)/' ) '/ 

DATA  FBIG,FMED,FSML/'F8.2' , * F9 . 4 ' , ' F9 . 6 ' / 

DATA  FMT(3) ,FMT(5) ,FMT(7) ,FMT(9)/4»' ,'/ 

DO  20  I«l,10 

DO  18  J-1,5 

FMT(2*J)-FMED 

IF  (TABLEd  ,J)  .GE.  100) 

IF  (TABLEd, J)  .LE. 0.1) 

CONTINUE 

WRITE(6,FMT)   (TABLE ( I , J)  , J«l , 5) 

CONTINUE 

END 


18 
20 


FMT(2*J)«FBIG 
FMT(2*J)-FSMAL 
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In  the  exa 
magnitudes 
known  unti 
the   real 
parenthesi 
odd-number 
stored  in 
descriptor 
depend  on 
statement 


mple,  the  data  is  stored  in  the  real  array  TABLE.  The 
of  the  data  stored  in  the  elements  of  TABLE  will  not  be 
1  just  before  output.  The  format  specification  is  stored  in 
array  FMT.  A  left  parenthesis  is  stored  in  FMT  (1) ,  a  right 
s  is  stored  in  FMT{11),  and  commas  are  stored  in  other 
ed  elements  of  FMT.  A  selection  of  field  descriptors  is 
the  real  variables  FBIG,  FMED,  FSML.  The  choice  of  field 
3  to  be  assigned  to  even-numbered  elements  of  FMT  is  made  to 
the  magnitude  of  the  data  in  TABLE.  Finally,  the  output 
references  FMT  instead  of  a  format  statement  label. 


Each  time  an  I/O  statement  referencing  a  run-time  format  is  executed, 
the  format  is  compiled  (or  recompiled)  and  assigned  a  storage 
location.  Data  read  into  that  location  through  use  of  the  H  field 
descriptor  is  not  stored  in  the  array  holding  the  format.  At  the  end 
of  the  I/O  statement,  the  data  will  be  lost. 


8.6   FORMAT  CONTROL  INTERACTION  WITH  INPUT/OOTPOT  LISTS 

Format  control  begins  with  execution  of  a  formatted  I/O  statement. 
During  format  control,  the  action  taken  depends  on  information 
provided  jointly  by  the  next  element  of  the  I/O  list  (if  one  exists) 
and  the  next  field  descriptor  of  tiie  format  specification.  The  I/O 
list  and  the  format  specification  are  correlated  from  left  to  right, 
except  when  repeat  counts  are  specified. 

If  the  I/O  statement  contains  an  I/O  list,  you  must  specify  at  least 
one  I,  0,  F,  E,  D,  G,  L,  A,  or  Q  field  descriptor  in  the  format,  or 
else  an  error  occurs. 

On  execution,  a  formatted  input  statement  reads  one  record  from  the 
specified  unit  and  initiates  format  control.  Thereafter,  additional 
records  can  be  read  as  indicated  by  the  format  specification.  Format 
control  requires  that  a  new  record  be  input  when  a  slash  occurs  in  the 
format  specification,  or  when  the  last  closing  parenthesis  of  the 
format  specification  is  reached  and  I/O  list  elements  remain  to  be 
filled.  Any  remaining  characters  in  the  current  record 
when  the  new  record  is  read. 


remain  to 
are  discarded 


On  execution,  a  formatted  output  statement  transmits  a  record  to  the 
specified  unit  as  format  control  terminates.  Records  can  also  be 
written  during  format  control  if  a  slash  appears  in  the  format 
specification  or  if  the  last  closing  parenthesis  is  reached  and  more 
I/O  list  elements  remain  to  be  transferred. 

The  I,  0,  F,  E,  D,  G,  L,  A,  and  Q  field  descriptors  each  correspond  to 
one  element  in  the  I/O  list.  No  list  element  corresponds  to  an  H,  X, 
P,  T,  or  alphanumeric  literal  field  descriptor.  In  H  and  alphanumeric 
literal  field  descriptors,  data  transfer  occurs  directly  between  the 
external  record  and  the  storage  location  of  the  format  specification. 

In  format  control,  when  an  I,  0,  F,  E,  D,  G,  L,  A,  or  \i  field 
d<=ocriptor  is  encountered,  the  I/O  list  is  checked  for  a  corresponding 
element.  If  one  is  found,  data  is  transferred  and,  if  appropriate, 
translateo  'between  the  external  record  and  the  list  element.  If  one 
is  not  found,  format  control  terminates. 


When  the  last  closing  parenthesis  of  the  format  specification  is 
reached,  tormat  control  determines  whether  more  I/O  list  elements  are 
to  be  processed.  If  not,  format  control  terminates.  However,  if 
additional  list  elements  remain,  part  or  all  of  the  format 
specification  is  reused  in  a  process  called  format  reversion. 
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Format  reversion  is  the  termination  of  the  current  record  and  the 
starting  of  a  new  one.  Format  control  reverts  to  the  group  repeat 
specification  whose  left  parenthesis  is  complemented  by  the 
next-to-last  right  parenthesis  of  the  format  specification.  If  the 
format  does  not  contain  a  group  repeat  specification,  format  control 
returns  to  the  beginning  of  the  format  specification  and  continues 
from  that  point. 

Examples  of  format  reversion  are: 

RCAU  (1,100)  A,  B,  C,  D,  E,  F 

100   FORMAT  (F8.3,  F8.3) 

In  this  example,  three  records  containing  two  fields  are  read.  The 
first  record  assigns  values  to  A  and  B;  the  second  to  C  and  D;  and 
the  third  to  E  and  F. 

DIMENSION  A(5,5) ,B(5) 

WRITE  (6,10)X, (I rB(I) , (A(I ,J) ,J-1,5) ,1-1,5) 

10    FORMAT  (E10.3/(I5,E10.3,  5(F8.5))) 

In  this  example,  format  reversion  returns  *-o  the  group  repeat 
specification  that  begins  with  15. 


8.7   SUMMARY  OP  ROLES  FOR  FORMAT  STATEMENTS 


The  following  sections  summarize  the  rules  for  constructing  and  using 
the  format  specifications  and  their  components,  and  for  constructing 
external  fields  and  records.   Table  8-4  summarizes  the  FORMAT  codes. 


8.7.1  General  Rules 


1.   A  FORMAT  Statement  must  always  be  labeled. 


2.  In  a  field  descriptor  such  as  rlw  or  nX,  the  terms  r,  w,  and 
n  iiust  be  un:iigned  integer  constants  greater  than  0.  You  can 
omit  the  repeat  cou''t  and  field  width  specification. 


3.  In  a  field  descriptor  such  as  Fw.d,  the  term  d  must  be  an 
unsigned  integer  constant.  If  w  is  specified,  then  you  must 
specify  d  in  F,  E,  0,  and  G  field  descriptors  even  if  it  is 
0;  and  the  field  width  specification  (w)  must  be  greater 
than  or  equal  to  i.  The  decimal  point  is  also  required.  You 
must  either  specify  bot>^  w  and  d,  or  omit  them  both. 


4.  ^In  a  field  descriptor  such   as   nHclc2   ...    en,   exactly   n 

characters   must   follow   the  H  fomat  code.   You  can  use  any 
printing  K&CW    cn^racter  in  this  field  descriptor. 

5.  In  a  scale  factor  of  the  fom  nP,  n  must  be  a  signed  or 
unsigned  integer  constant  in  the  range  -127  through  127 
inclusive.  The  scale  factor  affects  the  F,  B,  0,  and  G  field 
descriptors  only.  Once  you  specify  a  scale  factor,  it 
applies  to  all  subsequent  F,  B,  0,  and  G  field  descriptors  in 
that  forma*:,  specification  until  another  seal**  factor  appears. 
You  must  explicitly  specify  OP  to  reinstate  a  f^cale  factor  of 
sero.   Format  reversion  ioe«  not  affect  the  scale  factor. 
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6. 


7. 


No  repeat  count  is  permitted  for  H,  X,  T, 
literal  field  descriptors  unless  these 
enclosed  in  parentheses  and  treated  as 
specification. 


or  alphanumeric 
descriptors  are 
a   group   repeat 


If  the  associated  I/O  statement  contains  an  I/O  list,  the 
format  specification  nust  contain  at  least  one  field 
descriptor  other  than  H,  X,  P,  T,  or  an  alphanumeric  literal. 

A  format  specification  in  an  array  must  be  constructed  the 
same  as  a  format  specification  in  a  FORMAT  statement, 
including  the  opening  and  closin  parentheses.  The  word 
FORHAT  and  the  statement  label  only  are  permitted. 


•.7.2   Input  Rules 


1.  A  minus  sign  must  precede  a  negative  value  in  an  external 
input  field;  a  plus  sign  is  optional  before  a  positive 
value . 

2.  On  input,  an  external  field  under  I  field  descriptor  control 
must  be  an  integer  constant.  It  Cdnnot  contain  a  decimal 
point  or  an  exponent.  An  external  field  under  0  field 
descriptor  control  must  contain  only  the  numerals  0  through  7 

s'gn,  a  decimal  point,  or  an  exponent. 


and  must  not  contain  a 


3.  On  input,  an  external  field  under  F,  E,  D,  or  G  field 
descriptor  control  must  be  dn  integer  constant  or  a  redl  or 
double  precision  constant.  It  can  contain  a  decimal  point 
and/or  an  E  or  D  exponent  field. 

4.  If  an  external  field  contains  a  decimal  point,  the  actual 
size  of  the  fractional  part  of  the  field,  as  indicated  by 
that  decimal  point,  overrides  the  d  specification  of  the 
corresponding  real  or  double  precision  field  descriptor. 

5.  If  an  external  field  contains  an  exponent,  the  scale  factor 
(if  any)  of  the  corresponding  field  descriptor  has  no  effect 
on  the  conversion  of  that  field. 

6.  The  field  width  specification  must  be  large  enough  to 
accommodate  both  the  numeric  character  string  of  the  external 
field  and  any  other  characters  that  are  allowed  (algebraic 
sign,  decimal  point,  and/or  exponent). 

7.  A  comma  is  the  only  character  you  can  use  as  an  external 
field  separator.  It  terminates  input  of  numeric  fields  that 
are  shorter  than  the  number  of  characters  expec*'ed.  It  also 
designates  null  (sero-length;  fields. 


t.7.3   Output  Rul«« 


I.  A  format  specification  cannot  specify  .nore  output  characters 
than  the  exte-nal  record  can  contain.  For  example,  a  line 
printer  record  canno^"  contain  more  than  133  characterSf 
including  the  carriage  control  character. 


8-2  3 


FORMAT  STATEMENTS 


The  field  width  specification  (w)  must  be  large  enough  to 
accoimtodate  all  characters  that  the  data  transfer  can 
generate,  including  an  algebraic  sign,  decimal  point,  and 
exponent.  For  example,  the  field  width  specification  in  an  E 
field  descriptor  should  be  large  enough  to  contain  d-t-7 
characters. 

The  first  character  of  a  record  output  to  a  line  printer  or 
terminal  is  used  for  carriage  control;  it  is  not  printed. 
The  first  character  of  such  a  record  should  be  a  space,  0,  1, 
$,  or  -f.  Any  other  character  is  treated  as  a  space  and  is 
deleted  from  the  record. 


Table  8-4:   Suaaary  of  FORMAT  Codes 


Code 


Fon 


Effect 


I 

Hr 

• 

0» 

f 

Fw.d 

i 

Ew.d 

0 

Ow.d 

Specifies  transfer  of  decimal  integer  values. 

Specifies  transfer  of  octal  integer  values. 

Specifies  transfer  of  real  or  double  precision 
values  in  basic  real  form. 

Specifies  transfer  of  real  or  double  precision 
values  in  exponential  form. 

Specifies  transfer  of  real  or  double  precision 
values  in  double  precision  exponential  form 
with  a  D  instead  of  an  E. 


Gw.d 


Specifies  transfer  of  real  or  double  precision 


values: 


on   inputi 


acts   like   F  code; 


on 


output,  acts  like  E  code  or  F  code 


u 

Lw 

Kr. 

Am 

N 

nHc. . .c 

t 

0 

$ 

I 


nX 


Specifies  transfer  of  logical  data:  on  input, 
transfers  T,  t,  F,  or  f;  on  output,  transfers 
T  or  F. 

Specifies  transfer  of  alphanumeric  or  Hollerith 
values. 

Specifies  transfer  of  alphanumeric  or  Hollerith 
values  between  an  external  record  and  the 
format  storage  location. 

Specifies  that  n  characters  are  to   be   skipped 


(on    input) 


or 


that   n 


transmitted  (on  output) 


spaces   are 


to 


be 


Specifies  the  position,  in  the  external  record, 
of  the  next  character  to  be  processed. 

Specifies  the  number  of  characters  remaining  to 
be  transferred  in  an  input  record. 

Suppresses  carriage  return   during   interactive 
I/O. 

Terminates  Format  control  if  the   1/0  list   is 
exhausted. 
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AOXILIART  IHPOT/OOTPOT  STATEMENTS 


The   auxiliary   input/output   statements   perform    file   management 
functions.   These  statements  are: 

•  OPEN  —  establishes  a  connection  between  a  logical  unit  and  a 
file  or  device,  and  specifies  the  attributes  required  for  read 
and  write  operations. 

•  CLOSE  —  terminates  the  connection  between  a  logical  unit  and 
a  file  or  device. 

j>  REWIND,  BACKSPACE,  and  FIND  —  perform  file-positioning 
functions.  ' 

•  ENDFILE  —  writes  a  special  record  that  causes  an  end-of-file 
condition  (and  END-  transfer)  when  an  input  statement  reads 
the  record. 

•  •  DEFINE  FILE  —  associates  a  FORTRAN  logical  unit  with  an 
unformatted,  direct  access  file. 

See  Section  7.2  for  a  definition  of  the  I/O  statement  components   of 
these  statements. 


OPEN 


9.1   OPEN  STATEMENT 


An  OPEN  statement  either  connects  an  existing  file  to  a  logical   unit, 

or  creates  a  new  file  and  connects  it  to  a  logical  unit.   In  addition. 

OPEN  can  specify   file  attributes   that   control  file   creation   and 
subsequent  processing. 

The  OPEN  statement  has  the  following  form: 
OPEN(par (,parl . .  .) 


par 


A  keyword  specification  in  one  of  the  following  forms: 


key 

key  ■  value 


lr«y 
valu* 


A  keyword,  as  described  below. 

Depends  on  the  keyword,  as  described  below. 
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Keywords  are  divided  into  several  categories  based  on  function: 
•   Keywords  that  identify  the  unit  and  file. 


UNIT 
NAME 
TYPE 
DISPOSE 


-  logical  unit  number  to  be  used 

-  file  name  specification  for  the  file 

-  file  existence  status  at  OPEN 

-  file  existence  status  after  CLOSE 


•   Keywords  that  describe  the  file  processing  to  be  performed, 


ACCESS 
READONLY 


-  FORTRAN  access  method  to  be  used 

-  write  protection 


•   Keywords  that  des^rribe  the  records  in  the  file. 


BLOCKSIZE 

CARRIAGECONTROL 

FORM 

RECORDSIZE 


-  size  of  I/O  transfer  buffer 

-  type  of  printer  control 

-  type  of  FORTRAN  record  formatting 

-  logical  record  length 


•   Keywords  that  describe  file  storage  allocation  when  a  file   is 
created,  * 


INITIALSIZE 
EXTENDSIZE 


-  initial  file  storage  allocation 

-  file  storage  allocation  increment  size 


•  Keywords  that  provide  additional  capability  for  direct   access 
I/O. 

ASSOC I ATEVARI ABLE   -  variable  holding  the  next   direct   access 

record  number 
MAXREC  -  maximum  direct  access  record  number 

•  Optional  keywords  that  provide  improved  performance  or  special 
capabilities. 


ERR 


BOPFERCOUNT 
NOSPANB LOCKS 

SHARED 


-  Statement  to  which  control  is  transferred 
if  an  error  occurs  during  executi  :i  of 
the  OPEN  statement 

-  number  of  I/O  buffers  to  use 

-  records  are  not  to  be  split  across 
physical  blocks 

-  other  programs  can  simultaneously  access 
the  file 


NOTE     t 

Not  all  Pnp-li  operating  systems  support 
all  keywords  and  options.  Consult  the 
appropriate  PDP-11  FORTRAN  IV  user's 
guide  for  information  in  system-specific 
restrictions. 


Table  9-1  lists  in  alphabetical  order  the  keywords  and  their   possible 
associated  values,  including  default  values. 
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Table  9-1:   OPEN  Statement  Keyword  Values 


Keyword 


Values^ 


Function 


Default 


ACCESS 


•SEQUENTIAL' 

'DIRECT* 

'APPEND' 


Access  method    'SEQUENTIAL' 


ASSOCIATEVARIABLE 


BLOCKSIZE 


BUFFERCOUNT 


CARRIAGECONTROL 


DISPOSE 
DISP 


ERR 


EXTENDSIZE 


'FORTRAN' 

'LIST' 

'NONE' 


'SAVE'  or  'KEEP' 

'PRINT' 

'DELETE' 


FORM 


'FORMATTED' 
'UNFORMATTED* 


Next  record 
number  in 
direct  access 

Size  of  I/O 
buffer 

Number  of  I/O 
buffers 

Print  control 


File  disposi- 
tion 
at  close 

Error  transfer 
label 

File  storage 
al  location 
increment 

Format  type 


No  associate 
variable 


System  default 


System  default 


'FORTRAN' 
(formatted) 
'NONE' 
(unformatted) 

'SAVE' 


No  error 
transfer 

Volume  or 
system  default 


Depends  on 
ACCESS 


INITIALSIZE 


Pile  storage 
allocation 


No  allocation 


MAXREC 

NAME 
NOSPANBLOCKS 


Maximum  record  No  maximum 
number  in 
direct  access 

File  name  Depends  on 

specification  unit  and  system 

Records  do  not  Records  can  span 

span  blocks  blocks 


READONLY 


Write  protec- 
tion 


No  write 
protection 


(continued  on  next  page) 
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Table  9-1  (Cont) :   OPEN  Statement  Keyword  Values 


Keyword 


Values^ 


Function 


Default 


RECORDS I ZE 


Record  length    Depends  on  TYPE, 


SHARED 


TYPE 


■^'-m        , 


•OLD* 
'NEW 

•SCRATCH' 
'UNKNOWN' 


File  sharing 
allowed 

File  status 
at  open 


File  sharing 
not  allowed 

'  NEW  • 


UNIT 


1. 


Logical  unit 
number 


No  default 


is  an  alphanumeric  literal,  array  name,  variable  name,   or 

array  element  name. 

is  an  integer  expression.  ^        «  .      # 

is  a  statement  label.         * 

is  an  integer  variable  name.      '        '^  ^ 


Keyword  specifications  can  appear  in  any  order.  Determining  whether 
they  are  optional  and  which  ones  are  required  depends  upon  the  type  of 
file  you  are  establishing  or  have  established,  and  upon  what  you  plan 
to  do  with  it. 

Some  examples  follow.  *?    *  %    * 

OPEN  (UNIT'l,  ERR-100)  ^        / 

This  example  creates  a  new  sequential  formatted  file  on  unit  I  with 
the  default  file  name,     i  "  ■ 

OPEN  (UNIT«3,  TYPE- ' SCRATCH ' ,  ACCESS* ' DIRECT ' , 

INITIALSIZE-50,  RECORDSIZE-64 )  ^?       ^ 

This  example  creates  a  50-block  sequential  file  to  be  used  with  direct 
access.   Th       <«  deleted  at  program  termination. 

OPEN  (UNIT-I,  NnMt   MTOtMYDA ^A. DAT ' ,  BLOCKSIZE-8192 , 

TYPE='NEW',  Er   M,  RtCORDSI  ZE-1024  ,  RECORDTYPE- '  FIXED' ) 

This  example  creates  a  fi'  ->  magnetic  tape  with  a  large  block  size 
for  efficient  processing, 

OPEN  (UNIT«I,  NAME«'hiC  *  DATA. DAT',  READONLY,  TYPE-'OLD', 
RECORDSIZE-1024,  REv  ">RDTYPE- '  FI  XED' ,  BLOCKS!  ZE-8192' 

This  example  opens  the  file  created  in  the  previous  example  for  knput. 

Sections  9.1.1  through  9.1.18  describe  the  keywords  in  detail. 


•*.  ■ 
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9.1.1  ACCESS  Keyword 


,  ^ 


The  ACCESS  keyword  specifies  the  m*»thod  of  locating,  reading,  or 
writing  records.  In  FORTRAN  IV  there  are  two  access  methods: 
sequential  and  direct. 

This  keyword  has  the  following  form: 

ACCESS*  ace 


ace 


One  of  the  alphanumeric  literals,  'SEQL  :NTIAL' ,  or  'APPEND'. 
ACCESS"  'APPEND'  implies  sequential  access  and  positioning  after 
the  last  r'-cord  in  the  file. 

If  no  ACCESS  is  specified,  the  default  is  'SEQUENTIAL'. 


In  sequential  access,  you  must  read  or  write  records  in  sequence   from 
the  beginning  of  the  file. 

Direct  access  to  sequential  file  requires  that  the  records  in  the  file 
be  fixed-length  (see  Section  9.1.15.) 


In  direct  access,  you  specify  record  number  n  (Section  7.2.3)   in 
I/O  statement,  and  the  system  selects  the  nth  record. 


the 


9.1.2   ASSOCIATEVARIABLE  Keyword 

ASSOCIATEVARIABLE  specifies  the  integer   variable   (asv)   that,   after 
each  direct   access   I/O  operation,  contains  the  record  number  of  the 
t  sequential  record  in  the  file.   This   spe^fier   is   ignored   for 
sequential  access. 

This  keyword  has  the  following  form: 

ASSOCIATEVARIABLE  -  asv 

••V 

An  integer  variable. 


9.1.3   BLOCKSISI  Keyword 

BLOCKSIZE  specifies  the  sixe  (in  bytes)  of  the  I/O  transfer  buffer. 
I/O  statements  appear  to  transfer  records  directly  between  a  file  and 
the  entities  specified  in  the  I/O  list.  In  fact,  the  system  transfers 
the  records  to  an  intermediate  I/O  buffer. 

This  keyword  has  th   following  foris: 

BLOCKSIZE  -  bks 


bks 


An  integer  expression. 


Por  sequential  files,  BLOCKSIZE  determines  the  number  of  disk  blocks 
to  transfer  for  disk  files  or  the  physical  blocking  factor  for 
magnetic  tape  files.  The  default  is  the  system  default  for  the 
device. 


See   the   apnrop'iate   PDP-11   FORTRAN   IV  user's  guide    for 
information. 


more 
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9.1.4   BUPPERCOUNT  Keyword 

BUFFERC0UN7  specifies  the  number  of  buffers  to  be  associated  with  the 
logical  unit  for  multi buffered  I/O.  The  BLOCKSIZE  keyword  determines 
the  size  of  each  buffer.  If  you  do  not  specify  BUFPERCOUNT,  or  if  you 
specify  0,  the  system  default  is  used.  This  keyword  has  the  following 
form: 


BOPFERCOONT  «  bc 


An  integer  expressio*^. 


9.1.5   CARRIAGRCOMTROL  Keyword 


CARRIAGECONTROL  determines  the  kind  of  carriage  control  to  be  used 
when  printing  a  file.  The  default  for  formatted  files  is  'FORTRAN' , 
the  default  for  unformatted  files,  the  default  is  'NONE'.  'FORTRAN' 
specifies  normal  FORTRAN  interpretation  of  the  first  character  (see 
Section  8.2)  'LIST'  specifies  no  FORTRAN  interpretation,  but  rather 
single  spac.Kg  between  records;  and  'NONE'  specifies  no  implied 
carriage  control. 


This  keyword  has  the  following  form: 
CARRIAGBCONTROL  «  CC 


One  of  the  alphanumeric  literals  'FORTRAN',  'LIST',  or  'NONE' 


9.1.6   DISPOSE  Keyword 

DISPOSE  determines  the  disposition  of  the  file  connected  to  the  u>:it 
when  the  unit  is  closed.  If  you  specify  'SAVE*  or  'KEEP',  the  file  is 
retained  after  the  unit  is  closed;  this  is  the  default  value.  If  you 
specfiy  'PRINT',  the  file  is  submitted  to  the  system  line  printer 
spooler.  On  some  systems,  the  file  is  deleted  after  printing.  If  you 
specfiy  'DELETE',  the  file  is  deleted.  A  read-only  file  (see  Section 
9.1.14)  cannot  be  printed  or  deleted,  and  a  scratch  file  (see  Section 
9.1.17)  cannot  be  saved  or  printed. 

This  keyword  has  the  following  forms: 

DISPOSE  «  dis 
DISP  -  dis 


I 


dis 


One  of  the  alphanumeric 
'DELETE' . 


literals   'SAVE',   'KEEP',   'PRINT',   or 


9.1.7   KRR  Keyword 


ERR  transfers  control 
error  occurs  during 
specification  applies 
I/O  operations  on  the 
or  created. 


to  the  executable  statement  specified  by  s  if  an 

execution   of   the   OPEN  statement.    The   ERR 

only  to  the  OPEN  statement,   not   to   subsequent 

unit.   If  an  error  does  occur,  no  file  is  opened 
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This  keyword  has  the  following  form: 
ERR>  s 

8 

The  label  of  an  executable  statement. 


9.1.8   EXTENDS I ZB  Keyword 


EXTENDSIZE  specifies  the  number  of  blocks  by  which  to   extend   a   disk 

EiifiNDstzE  oi'ir^^  ^'^^  ^^'''n^^  'J   allocated.   If  you  do  not  specify 
EXTENDSIZE,  or  if  you  specify  0,  the  system  default  for  the  device   is 


used. 

This  keyword  has  the  following  form: 
EXTENDSIZE  =  es 


•■ 


An  integer  expression. 


9.1.9  FORM  Keyword 


^sfna^foriiirn"^^*'^^^  ^^^  ^'^*  ''^^"^  °P^"^^  '^    ^"^   b«  '^«^d  ^"^  written 

•FiRMAT?ES'  is  th«  d^^^Tf'^^  '^i   Statements.   For  sequential  access, 

FORMATTED   is  the  default.   For  direct  access,  'UNFORMATTED'   is   the 

^hI  ci      .   """^^  "°*^  ""  formatted  and  unformatted  I/O  statements  on 
tne  same  unit. 


This  keyword  has  the  following  form: 

FORM  -  ft 
ft 


The  alphanumeric  literal  'FORMATTED'  or  'UNFORMATTED'. 


9.1.10   INITIALSIZB  Keyword 

INITIALSIZE  specifies  the  number  of  blocks  in  the   initial   allocation 
Of  space  for  a  new  file  on  a  disk.   If  you  do  not  specify  INITIALSIZE 
or  If  you  specify  0,  no  initial  allocation  is  made.        INITIALSIZE, 

This  keyword  has  the  following  form: 

INITIALSIZE  •  inss 

inss 

An  integer  expression. 


f.1.11   MAXREC  Keyword 

!Ioi!ff-  '???^^'*%K^*  maximum  number  of  records  permitted  in  a  direct 
I^f!7!<  .'.  ^^'^  default  is  no  maximum  number  of  records.  This 
specifier  is  ignored  for  other  types  of  files. 
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This  keyword  has  the  following  form: 
MAXREC  «  rar 


mr 


An  integer  expression. 


9.1.12  NAME  Keyword 

NAME  specifies  the  name  of  the  file  to  be  connected  to  the  unit.  The 
name  can  be  any  file  specification  accepted  by  the  operating  system. 
The  appropriate  PDP-11  FORTRAN  IV  user's  guide  describes  default  file 
name  conventions. 

If  the  file  name  is  stored  in  a  variable,  array,  or  array  element,  the 
name  must  consist  of  ASCII  characters  terminated  by  an  ASCII  null 
character  (0  byte) . 

This  keyword  has  the  following  Torm: 

NAME  =  fin 

fin  ''^     *  '--•' 

An  array  name,  variable  name,  array  element  name,  or  alphanumeric 
literal. 


9.1.13  NOSPANBLOCKS  Keyword 

NOSPANBLOCKS  is  used  for  sequential  files  stored  on  disk  only.  It 
specifies  that  records  are  not  to  cross  disk  block  boundaries.  If  any 
record  exceeds  the  size  of  a  disk  block,  an  error  occurs. 

This  keyword  has  the  following  form: 

NOSPANBLOCKS  '^ 


9.1.14   READONLY  Keyword 

READONLY  prohibits  writing  by  the  program  to  a  file. 
This  keyword  has  the  following  form: 
READONLY 


r 


9.1.15  RECORDSIZE  Keyword 

RECORDSIZE  specifies  the  logical  record  length. 

If  the  file  contains  fixed-length  records,  RECORDSIZE  specifies  the 
size  of  each  record.  If  the  file  contains  variable-length  records, 
RECORDSIZE  specifies  the  maximum  length  for  any  record. 

You  must  specify  RECORDSIZE  when> you  create  a  file  with  fixed-length 
records. 
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This  keyword  has  the  following  form: 
RECORDS  I ZE  =  rl 


tl 


An  integer  expression. 


The  value  of  rl  depends  on  the  value  of  FORM  (see  Section  9.1.9).  If 
the  records  are  formatted,  the  length  is  the  number  of  characters;  if 
the  records  are  unformatted,  the  length  is  the  number  of  numeric 
storage  units  (four  bytes) . 


9.1.16   SHARED  Keyword 

SHARKD  specifies  that  the  file  is  to  be  opened  for   shared  access   by 
more  than  one  program  executing  simultaneously. 

Sequential  files  may  only  be  shared  if  they  are  stored   on  disk,   and 
only  one  program  may  have  write  access. 

This  keyword  has  the  following  form: 

SHARED 

See  the  appropriate  PDP-11  FORTRAN   IV  user's   guide   foi.   additional 
information  on  this  keyword. 


9.1.17   TYPE  Keyword 

TYPE  specifies  the  status  of  file  to  be  opened.  If  you  specify  'OLD', 
the  file  must  already  exist.  If  you  specify  'NEW,  a  new  file  is 
created.  If  you  specify  'SCRATCH',  a  new  file  is  created  and  it  is 
deleted  when  the  file  is  closed.  If  ycu  specify  'UNKNOWN',  the  system 
will  first  try  'OLD';  if  the  file  is  not  found,  the  system  will  use 
'NEW,  thereby  creating  a  new  file.   The  default  is  'NEW. 

This  keyword  has  the  following  form: 

TYPE  »  typ 


typ 


One  of  the  alphanumeric   literals   'OLD',   'NEW,   'SCRATCH',   or 
unknown. 


9.1.18   UNIT  Keyword 

UNIT  specifies  the  logical  unit  to  which  a  file  is  to  be  connected. 
The  unit  specification  must  appear  in  the  list.  Another  file  cannot 
be  connected  to  the  logical  unit  when  the  OPEN  statement  is  executed. 

This  keyword  has  the  following  form: 

UNIT  «  u 


An  integer  expression. 
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CLOSE 

9.2   CLOSE  STATBHBHT 

The  CLOSE  statement  disconnects  a  file  from  a  unit 

The  CLOSE  statement  has  the  following  form: 


u 


CLOSE  (UNIT' 


~  /disposer 

L'Idisp   ) 


(,ERR.s]) 


A  logical  unit  number. 


An  alphanumeric  literal  that  determines  the  disposition   of   the 
file.   Its  values  are  'SAVE',  'KEEP',  'DELETE',,  and  'PRINT'. 

9 

The  label  of  an  executable  statement. 

If  you  specify  either  'SAVE'  or  'KEEP',  the  file  is  retained  after  the 
unit  is  closed.  If  you  specify  'PRINT',  the  file  is  submitted  to  the 
line  printer  spooler.  On  some  systems,  the  file  is  deleted  after 
printing.  If  you  specify  'DELETE',  the  file  is  deleted.  For  scratch 
files,  the  default  is  'DELETE';  for  all  other  files,  the  default  is 
'SAVE'.  The  disposition  specified  in  a  CLOSE  statement  supersedes  the 
disposition  specified  in  the  OPEN  statement,  except  that  a  file  opened 
as  a  scratch  file  cannot  be  saved  or  printed,  nor  can  a  file  opened 
for  read-only  access  be  printed  or  deleted. 

For  example: 

CLOSE (UNIT- 1, DISPOSE- 'PRINT') 

This  statement  closes  the  file  on  unit  1  and  submits  the  file  for 
printing. 

CLOSE (UNIT- J, DISPOSE-' DELETE • ,ERR-99) 
This  statement  closes  the  file  on  unit  J  and  deletes  it. 


REWIND 


9.3   RBNIHD  8TATBMB1IT 

The  REWIND  statement   repositions   an   open   sequential   file   at   tht 
beginning  of  the  file. 

The  REWIND  statement  has  the  following  form: 

REWIND  u 

A  logical  unit  number. 
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The  unit  number  must  refer  to  an  open  sequential   file  on  disk  or 
magnetic  tape.   For  example: 

REWIND  3 

This  statement  repositions  logical   unit   3  to  the  beginning  of  a 
currently  open  file. 

You  must  not  issue  a  REWIND  statement  for  a  file  that   is   open   for 
direct  access. 


BACKSPACE 


9.4   BACKSPACE  STATEMENT      > 

The  BACKSPACE  statement  repositions  an  open  sequential  file  at  the 
beginning  of  the  preceding  record.  When  the  next  I/O  statement  for 
the  unit  is  executed,  that  record  is  available  for  processing. 

The  BACKSPACE  statement  has  the  followir.   form: 

BACKSPACE  u 

u 

^     A  logical  unit  number. 

The  unit  number  must  refer  to  an  open  sequential  file  on  disk  or 
magnetic  tape.   For  example: 

BACKSPACE  4 

This  statement  repositions  the  open  file  on  logical  unit  4  to  the 
beginning  of  the  preceding  record. 

You  must  not  issue  a  BACKSPACE  statement  for  a  file  that  is  open  for 
direct  or  append  access. 


FIND 


9.5   FIND  STATEMENT 

The  FIND  statement  positions  a  direct  access  file  on  a  specified   unit 
to  a  particular  record.   No  data  transfer  takes  place. 

This  statement  has  the  following  form: 

FIND  (u'r) 

u 

A  logical  unit  number. 

r 

The  direct  access  record  number. 
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The  record  number  cannot  be  less  than  I  or  greater  than  the  number   of 
records  defined  for  the  file. 

The  associated  variable  of  the  file,   if   specified,   is   set   to   the 
direct  access  record  number. 


ENDFILE 


9.6   EHDPILE  STATEMENT 

The  ENDFILE  statement  writes  an  end-file  record  to  the  specified  unit. 
This  statement  has  the  following  form: 

ENDFILE  u 


A  logical  unit  number. 

You  can  write  an  end-file  record  only  to  sequentially  accessed 
sequential  organization  files  containing  variable-length  or  segmented 
records. 

For  example: 

ENDFILE  2 

This  statement  outputs  an  end-file  recced  to  logical  unit  2. 


DEFINE  FILE 


9.7   DEFINE  PILE  STATEMENT 

The  DEFINE  FILE  statement  describes  direct-access  sequential  files 
that  are  associated  with  a  logical  unit  number.  The  OPEN  statement 
(Section  9.1)  is  the  preferred  way  to  do  this.  The  DEFINE  FILE 
statement  establishes  the  size  and  structure  of  the  direct  access 
file. 

The  DEFINE  FILE  statement  has  the  following  focm: 

DEFINE  FILE  u  (m,n,U,asv)  [ ,u(m,n,U,asv) ]  ... 

An  integer   constant   or   integer   variable   that   specifies   the 
logical  unit  number. 

An  integer  constant  or  integer  variable  that  specifies  the  number 
of  records  in  the  file. 


An  integer   constant   or   integer   variable   that   specifies   the 
length,  in  16-bit  words,  (2  bytes),  of  each  record. 

Specifies  that  the  file  is  ur.fcrikatted   (binary);    this   is   the 
only  acceptable  entry  In  this  position. 
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••▼ 


An  integer  variable,  called  the  asociated  variable  of  tl.e  file. 
At  the  end  of  each  direct  access  I/O  operation,  the  record  number 
of  the  next  higher-numbered  record  in  the   file   is   assigned   to 


asv. 


DEFINE  FILE  specifies  that  a  file  containing  m  fixed-length  records  of 
n  16-bit  words  each  exists,  or  is  to  exist,  on  logical  unit  u.  The 
records  in  the  file  are  numbered  sequentially  from  1  through  m. 


HEFINE  FILE  must   be 
statement  that  refers 


executed   before   the 
to  the  specified  file. 


first   direct-access   I/O 


DEFINE  FILE  also  establishes  the  integer  variable  asv  as  the 
associated  variable  of  the  file.  At  the  end  of  each  direct  access  I/O 
operation,  the  FORTRAN  I/O  system  places  in  asv  the  record  numbei  of 
the  record  immediately  following  the  one  just  read  or  written.  Since 
the  associated  variable  always  points  to  the  next  sequential  record  in 
the  file  (unless  it  is  redefined  by  an  assignment,  input,  or  FIND 
statement),  direct  access  I/O  statements  can  perform  sequential 
processing  of  the  file  by  using  the  associated  variable  of  the  file  .,^ 
the  record  number  specifier. 

For  example: 


DEFINE  FILE  3  ( 1000 , 48 , U, NREC) 

This  statement  specifies  that  logical  unit  3  is  to  be  connected  to  a 
file  of  '000  fixed-lergth  records;  each  record  is  forty-eight  16-bit 
words  long.  The  records  are  numbered  sequentially  from  1  through 
1000,  and  are  unformatted.  After  eaci  direct  acce'^s  I/O  operation  on 
this  file,  the  integer  variable  NREC  will  contain  ne  record  number  of 
the  record  iramediately  following  the  record  just  processed. 
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A.l   FORTRAN  CHARACTER  SET 

The  FORTRAN  character  set  consists  of: 

*  1.   The  letters  A  through  z  and  a  through  z 

2.  The  numerals  0  through  9 

3.  The  following  special  characters: 


Character 

NasM 

Character 

Mum 

A  or  !^ 

Space  or  tab 

# 

Comma 

• 

Equal  sign 

• 

Period 

♦ 

Plus  sign 

• 

Apostrophe 

m 

Minus  sign 

• 

Quotation  mark 

• 

Asterisk 

$ 

Dollar  sign 

/ 

Slash 

1 

Exclamation  point 

( 

Left  parenthesis 

t 

Colon 

) 

Right  parenthesis 

ll^V   SJ'"'!"?!""?!!"*"  ""  •PP**'  '"  •  fO"™**  •t.t.««nt  only  •■ 
n«.„?!  S«  ilbU  a!!?"""-   *""  '""""'  ch.r.ct.t  c.n  .pp..r^„  . 


A. 2   ASCII  CHARACTER  SET 

iJ^'^Jhl'MM  '***^!  representing  the  ASCII  character  set.  At  the  top 

tfbiilr.  J^V?  »^r"f?i-l  Oi9its  (0  to  7),  and  to  the  left  of  thi 

vl?ie  oJ  irif??"*i  ''^^i"  <?  '°  ''•   TO  determine   the  hexadecimal 
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Table  A-1:   ASCII  Character  Set 


Columns 

■■■■/■■  . 

0 

0 

1 

2 

3 

4 

5 

6 

7                                  ■  t 

NUL 

DLE 

SP 

0 

@ 

P 

« 

P 

1 

SOH 

DCl 

! 

1 

A 

Q 

a 

q         ,'■.'! 

2 

STX 

DC  2 

n 

2 

B 

R 

b 

r 

3 

ETX 

DC  3 

# 

3 

C 

S 

c 

s 

4 

EOT 

DC4 

$ 

4 

D 

T 

d 

t 

5 

ENQ 

NAK 

% 

5 

E 

U 

e 

u 

6 

ACK 

SYN 

& 

6 

F 

V 

f 

V 

7 

BEL 

ETB 

1 

7 

G 

W 

g 

w 

8 

BS 

CAN 

( 

8 

H 

X 

h 

X 

9 

HT 

EM 

) 

9 

I 

Y 

i 

y 

A 

LF 

SUB 

* 

• 

J 

Z 

J 

z 

, 

B 

VT 

ESC 

+ 

• 
9 

K 

[ 

k 

• 

C 

FF 

FS 

t 

< 

L 

\ 

1 

D 

CR 

GS 

- 

s 

M 

1 

m 

E 

SO 

RS 

• 

> 

N 

A 

n 

■• 

F 

SI 

US 

/ 

? 

0 

— 

o 

DEL 

NUL 

Null 

DLE 

Data  Link  Escape 

SOH 

Start 

of  Heading 

DCl 

Device 

Control  1              j 

STX 

Start 

of  Text 

DC  2 

Device 

Cont 

rol  2 

ETX 

End  o 

f  Text 

DC3 

Device 

Cont 

rol  3 

EOT 

End  o 

C  Transmission 

DC  4 

Device 

Cont 

rol  4 

ENQ 

Enquiry 

NAK 

Negative  Acknowledge          j 

ACK 

Acknowledge 

SYN 

Synchronous 

Idle 

BEL 

Bell 

ETB 

End  of 

Transmission  Block 

BS 

Backs] 

aace 

CAN 

Cancel 

HT 

Horizontal  Tabulation 

EM 

End  of 

Medium                j 

LF 

Line  1 

Peed 

SUB 

Substitute 

VT 

Vertical  Tab 

ESC 

Escape 

r       ^^ 

Form 

Feed 

FS 

File  Separator 

'      CR 

Carriage  Return 

GS 

Group  Separator 

SO 

Shift 

Out 

R8 

Record 

Separator             i 

SI 

Shift 

In 

OS 

Unit  Separator               { 

SP 

Space 

DEL 

Del-  te 

1 

A. 3   RADIX-50  CONSTANTS  AND  CHARACTER  SET 

Radix-50  is  a  special  character  data  representation  in  which  up  to  3 
characters  can  be  encoded  and  packed  into  16  bits.  The  Radix-50 
character  set  is  a  subset  of  the  ASCII  character  set. 

The  Radix-50  characters  and  their  corresponding  code  values  are: 
Character 


ASCII  Octal 
Equivalent 


Radix-50  Value 
(Octal) 


Space 

40 

0 

A  -  Z 

101  -  132 

1-32 

« 

44 

33 

• 

M 

34 

(Unassigned) 

35 

0-9 

60  -  71 

36  -  47 
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Radix-50  values  are  stored,  up  to  3  characters  per   word,   by  packing 
them  into  single  numeric  values  according  to  the  formula: 

(  (i  *  50  +  j)  *  50  +  k) 
where  i,  j,  and  k  represent  the  code  values  of  3  Radix-50  characters. 
Thus,  the  maximum  Radix-50  value  is: 

47*50*50  +  47*50  +  47  =  174777 
A  Radix-50  constant  has  the  following  form: 

nRclc2...cn 


An  unsigned,  nonzero  integer  constant  that  states  the  number  of 
characters  to  follow. 


e 


A  character  from  the  Radix-50  character  set. 

The  maximum  number  of  characters  is  12.  The  character  count  must 
include  any  spaces  that  appear  in  the  character  string  (the  space 
character  is  a  valid  Radix-50  character).  You  can  use  Radix-50 
constants  only  in  DATA  statements. 

Examples  of  valid  and  invalid  Radix-50  constants  are: 
Valid  Invalid 

^RABCD  4RDK0:   (the  colon  is  not  a  Radix-50  character) 

6RAT0AZ^ 

When  a  Radix-50  constant  is  assigned  to  a  numeric  variable  or  array 
element,  the  number  of  bytes  that  can  be  assigned  depends  on  the  data 
type  of  the  component  (see  Table  2-2).  If  the  Radix-50  constant 
contains  fewer  bytes  than  the  length  of  the  component,  ASCII  null 
characters  (0  bytes)  are  appended  on  the  right.  If  the  constant 
contains  more  bytes  than  the  length  of  the  component,  the  rightmost 
characters  are  not  used. 
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B.l   EXPRESSION  OPERATORS 

Table  B-1  lists  the  expression  operators  in  each  data  type  in  order  of 
descending  precedence. 


Table  B-1:   Expression  Operators 


Data  Type   Operator 


Arithmetic    ** 


,/ 


♦#- 


Operation 


Exponentiation 


Multiplication, 
division 

Addition,  subtraction, 
unary  plus  and  minus 


Oper&tes  Upon: 


Arithmetic 
expressions 


Relational 

.GT. 

Greater  than 

.GE. 

Greater  than 
equal  to 

or 

.LT. 

Less  than 

.LE. 

Less  than  or 
equal  to 

.EQ. 

Equal  to 

.NE. 

Not  equal  to 

Arithmetic  or  logical 
expressions  (all 
relational  operators 
have  equal  priority) 


Logical 


.NOT.     .NOT. A  is  true  if  and 
only  if  A  is  false 

.AND.     A.AND.B  is  true  if 
and  only  if  A  and  B 
are  both  true 

.OR.     A.OR.B  is  true  if 
either  A  or  B  or 
both  are  true 


Logical  or  integer 
expressions 


(continued  on  next  page) 
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Pora 


Eff«ct 


ASSIGN  s  TO  V  ■,:;^.,;^;^^^,  ■:■,... 

s        A  label  of  an  executable  statement. 
y        An  integer  variable  name. 

Associates  the  statement  label  s  with  the 
integer  variable  v  for  later  use  in  an 
assigned  GO  TO  statement. 


Manual 
Section 


3.3 


BACKSPACE    u 

'6      ■■■ 


9.4 


An  integer  expression. 

Backspaces  one  record  the  currently  open  file  on 
logical  unit  u. 


BLOCK  DATA  [nam] 

nam      A  symbolic  name. 


Specifies  the  subprogram  that  follows  as  a 
BLOCK  DATA  subprogram. 


CALL  f[([a] [,ta]]...)J 


I 

• 


A  subprogram  name  or  entry  point. 

An  expression,  an  array  name,  or  a  procedure 
name. 

Calls  the  subroutine  subprogram  with  the 
name  specified  by  f,  passing  the  actual 
arguments  a  to  replace  the  dummy 
arguments  in  the  subroutine  definition. 


CLOSE  (pl,p]...) 


i-  V 


One  of  the  following  forms: 

UNIT  -  e 

DISPOSE  -  'SAVE* 

DISPOSE  -  'KEEP'  s 

DISPOSE  »  'DELETE' 

DISPOSE  -  'PRINT* 

ERR  -  8 

An  integer  expression.   >^ 

A  label  of  an  executable  statement. 

Closes  the  specified  file.   DISPOSE  can 
be  abbreviated  DISP. 


4.5 

6.2 


9.2 
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Effect 


COMMON  l/lcbl/]  nlist  [ (,)/(cbl/nlistJ .. . 

cb       A  coinmon  block  name. 

nlist     A  list  of  one  or  more  variable  names, 
array  names,  or  array  declarators 
separated  by  commas. 

Reserves  one  or  more  blocks  of  storage 
space  jnder  the  name  specified  to  contain 
the  variables  associated  with  that  block 
name. 


Manual 
Section 


CONTINUE 


Causes  no  processing, 


DATA  nlist/cli8t/( 1,1  nl ist/cl ist/1 . . . 

nlist     A  list  of  one  or  more  variable  names, 
array  names,  or  array  element  names 
separated  by  commas.   Subscript 
expressions  mubt  be  constant. 

clist     A  list  of  one  or  more  constants  separated 
by  commas,  each  optionally  preceded  by  j*^ 
where  j  is  a  nonzero,  unsigned  integer 
constant . 

Initially  stores  elements  of  clist 
in  the  corresponding  elements  of 
nlist. 


«.4 


5.8 


DECODE  (C,f ,b(,ERR-sl) [list] 


7.« 


t 

H 

list 


An  integer  expression. 

A  format  specifier. 

A  variable  name,  array  n 
element  name. 


or  array 


A  label  of  an  executable  statement. 

An  I/O  list. 

Reads  c  characters  from  buffer  b  and 
assigns  v/)lues  to  the  elements   n  the 
list,  converted  according  to  format 
specification  f. 


DBPINB  FILE  u(»,n,U,v)I,u(ii;,n,0,v)l... 

tt        An  integer  variable  or  integer  cor^-.ant, 
il        An  integer  variable  or  integer  constant 
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Pom  Effect 

n        An  integer  variable  or  integer  constant. 

V        An  integer  variable  name. 

Defines  the  record  structure  of  a 
direct  access  file  where  u  is  the  logical 
unit  number,  m  is  the  number  of  fixed- 
length  records  in  the  file,  n  is  the 
length  in  words  of  a  single  record,  U  is 
a  fixed  argument,  and  v  is  the  associated 
variable. 


Manual 
Saction 


DIMENSION  a 
a(d) 


,  ,a{d)  J  .. . 

An  array  declarator. 

Specifies  storage  space  requirements  for 
arrays. 


5.3 


DO  a  [,j  V  -  el,e2r,e3]  4.3 

8        A  label  of  an  executable  statement. 
V        A  variable  name. 
el,e2,e3  Numeric  expressions. 

Executes  the  DO  1 >op  by  performing  the  following  steps: 

1.  Set  V  «  el 

2.  Execute  all  statements  through 
statement  number  s 

3.  Evaluate  v  ■  v+e3 

4.  Repeat  steps  2  through  3  for  the  following 
iterations: 

MAX  (1,  INT((e2  -  el)/e3)  ♦  1) 


ENCODE  (C,f,bt,ERR-8l) [list] 


7.6 


# 
f 

h 
list 


An  integer  expression. 

A  format  specifier. 

A  variable  name,  array  name,  or  array 
element  name. 

A  label  of  an  executable  statement. 
An  I/O  list. — 


Writes  c  characters  i     buffer  b,  v>ich 
contains  the  values  c    he  elements  of 
tha  liat»  converted  according  to  format 
apacif ication  f. 


B-5 


Pora 


END 


ENDFILB  u 


FORTRAM  LAMGOAGE  SOMMART 


Effect 


Delimits  a  program  unit. 


An  integer  expression. 

Writes  an  end-file  record  on  logical 
unit  u. 


Manual 
Section 


4.9 


9.8 


END'S, ERR>S 


1.2,5 


A   label  of  an  executable  statement. 

Transfers  control  on  end-of-file  or  error 
condition.   This  is  an  optional  element 
in  each  type  of  I/O  statement  and  allows 
the  program  to  transfer  to  statement 
number  s  when  an  end-of-file  (END^^)  or 
error  (ERR-)  condition  occurs. 


EQUIVALENCE  (nl ist ) [ , (nl i St ) ] . . . 

nlist    A  list  of  two  or  mo  *  variable  names, 
array  names,  or  array  element  names, 
separated  by  commas.   Subscript 
expressions  must  be  constants. 

Assigns  each  of  the  names  in  nlist 
the  same  storage  location. 


5.6 


EXTERNAL  v[,v] ... 

<fP=        A  subprogram  name. 

Defines  the  names  specified  as  subprograms. 


5.7 


FIND  (u'r) 

m 


9.5 


An  integer  expression. 

An  integer  expression. 

Positions  the  file  on  logical 
unit  u  to  the  record 
specified  by  r. 


FORMAT  (field  specification,...) 


8.1  -  8.8 


Describes  the  format  in  which  one  or 
more  records  are  to  be  transmitted;   a 
statement  label  must  be  present. 
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Fora 


Effect 


rtypl  FUNCTION  nam [*n] [([p[,p) ...))] 

typ      A  data  type  specifier. 

nam      A  symbolic  name. 

"ill       A  data  type  length  specifier. 

p        A  symbolic  name. 

Begins  a  function  subprogram,  indicating 
the  program  name  and  any  dummy  argument 
names  (p) .   An  optional  type  specification 
can  be  included. 


Manual 
Section 


6.2.2 


GO  TO  s 

s 


A  label  of  an  executable  statement. 
Transfers  control  to  statement  number  s. 


4.1.1 


GO  TO  (slist) [,]  e 

slist    A  list  of  one  or  more  statement 
labels  separated  by  commas. 

e        An  integer  expression. 

Transfers  control  to  the  statement 
specified  by  the  value  of  e  (if  e«l, 
control  transfers  to  the  first  statement 
label;   if  e«2,  control  transfers 
to  the  second  statement  label,  etc.). 
If  e  is  less  than  1  or  greater  than  the 
number  of  statement  labels  present,  no 
transfer  takes  place. 


GO  TO  V  ([,)  (slist) ] 

V        An  integer  variable  name. 

slist    A  list  of  one  or  more  statement 
labels  separated  by  commas. 

Transfers  control  to  the  statement  most 
recently  associated  with  v  by  an  ASSIGN 
statement. 


4.1.2 


4.1.3 


IF  (e)  sl,s2,s3 

e        An  expression. 


4.2.1 
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Effect 


A  label  of  an  executable  statement. 

Transfers  control  to  statement  si 
depending  on  che  value  of  e  (if  e  is 
less  than  0,  control  transfers  to 
si;   if  e  equals  0,  control  transfers 
to  s2;   if  e  is  greater  than  0/  control 
transfers  to  s3) . 


Manual 
Section 


IF  (e)  St 

St 


An  expression. 

Any  executable  statement  except  a  DO  or 
logical  IF. 

Executes  the  statement  if  the  logical 
expression  has  a  value  of  true. 


4.2.2 


IMPLICIT  typ  (a[,a] ...) [,typ(a(,al ...)] ... 


typ 

• 


A  data  type  specifier. 

Either  a  single  letter,  or  two  letters 
in  alphabetical  order  separated  by 
a  hyphen  (i .e.,  X-Y) . 

The  element  a  represents  a  single  (or  a 
range  of)  letter  (s)  whose  presence  as  the 
initial  letter  of  a  variable  specifies 
the  variable  to  be  of  that  data  type. 


5.1 


OPEN  (par  I, par)  . . .) 
par 


9.1 


A  keyword  specification  in  one  of  the  following 
forms: 


key 

key  ■  value 

_• 

key 

A  keyword,  as  described  below. 

'4 

value 

Depends  on  the  keywoi 
below. 

:d,  as  described 

Kayword 

Value* 

ACCESS 

'SEQUENTIAL' 

'DIRECT' 

'APPEND' 

__^  -- 

ASSOC lATEVARIABLE 

V 

BLOCKSIZE 

e 

BUFFERCOUNT 

e 

CARRIAGECONTROL 

'FORTRAN' 

'LIST' 

'NONE' 

DISPOSE 

'SAVE'  or  'KEEP' 

DISP 

'PRINT' 
'DELETE' 

B-8 
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e 
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Keyword 

ERR 

EXTENDSIZB 
FORM 

INITIALSIZE 

MAXREC 

NAME 

NOSPANBLOCKS 

READONLY 

RECORDSIZB 

SHARED 

TYPE 


UNIT 


Effect 


.i' 


Values 

e 
•FORMATTED' 
•UNFORMATTED' 

•  ■ 


'OLD' 

'NEW^ 

•  SCRATCH • 

•UNKNOWN' 


Manual 
Section 


An  array  name,  variable  name,  array 
element  name,  or  alphanumaric  literal. 

A  numeric  expression. 

A  label  of  an  executable  stc«tement. 

An  integer  variable  name. 

Opens  a  file  on  the  specified  logical  unit 
according  to  the  parameters  specified  by 
the  keywords. 


PAUSE  (displ 
disp 


PRINT 


4.7 


A  decimal  digit  (String  containing  one    to  fiv< 
digits,  an  octal  constant,  or  an 
alphanumeric  literal. 

Suspends  program  execution  and  prints  the 
display,  if  one  is  specified. 


See  WRITE,  Formatted  Sequential 
See  WRITE,  List-Directed. 


V  „  3  .  2 
7,3-4 


PROGRAM  nam 

nam      A  symbolic  name. 

Specifies  a  name  for  the  wain  program 
READ  (u,f (,BND«S) (,ERR«S) ) (listj 
READ  f [,list] 
ACCEPT  f[,li»tl 

H        An  integer  expression. 

if        A  format  specifier. 


5.10 


7.3.1 
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Worm  Effect 

•        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  one  or  more  logical  records  from 
unit  u  and  assigns  values  to  the  elements 
in  the  list.   The  values  are  converted 
according  to  format  specification  f. 


"^        Section 


READ(u[,END-s] [,ERR-s] ) [list] 

tt        An  integer  expression. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  one  unformatted  record  fcom  logical 
unit  \i,    and  assigns  values  to  the 
elements  in  the  list. 


7.3.5 


READ(u'r[,ERR-s]) [list] 

u        An  integer  expression. 

r        An  integer  expression. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  record  r  from  logical  unit  u  and  assigns 
values  to  the  elements  in  the  list. 


7.4.3 


READ  (U, *(, END'S] [,ERR-S] ) list 
READ  *,list 
ACCEPT  *,list 

u        An  integer  expression. 

*        denotes  list-directed  formatting. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  one  or  more  records  from 
logical  unit  u  and  assigns  values  to 
the  elements  in  the  list.   The 
values  are  converted  according  to  the 
- -  data  type  of  the  list  element. 


7.3.3 
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RETURN 


^rORTRAH   LAHGOAGI   StmHJiRY 


Bff«ct 


Ae;:urns  control  to  the  calling  program 
froM  the  current  subprograa. 


Manual 
Saction 


4.6 


RBHIND  u 


An  integer  expres<<ion. 

Repositions  logical  unit  u  to  the 
beginning  of  the  currently  opened  fila 


9.3 


STOP  [disp] 
disp 


A  decinal  digit  string  containing  one  to  five 
digits,  an  octal  constant,  or  an 
alphanuaeric  literal. 

Terainates  prograa  execution  and  prints 
the  disp'^y,  if  one  is  specified. 


SUBROUTINE  na«( ( Ipi .pl ...  J ) J 

naa      A  s/abolic  naae. 
p        A  synbo lie.  .e . 


6.2.) 


Begins  a  subroutine  subprograa,  indicating 
the  prograa  ^iame   and  any  duaay  arguaant 
names  (p) . 


TYPE 


See  WRITE,  Poraatted  Sequential 
See  liRITE,  List-Directed. 


7.3.2 
7. J. 4 


Type  Declaration 

typ  vj,vl ... 

typ      One  of  the  following  data  types: 

BYTE 

LOGICAL 

LOG!CAL*l 

L0GiCAL*4 

INTEGER 

INTBGER*i 

INTEGER«4 

REAL 

RB*L-4 

REAL'S 

DOUBLE  PRECISION 

COMPLEX 

COMPLEX'S 


5.2 


•-U 
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Pora 


Effect 


A  variable  name,  array  name,  function  or 
function  entry  name,  or  an  array  declarator. 
The  name  can  optionally  be  followed  by  a  data 
type  length  specifier  (•n) . 

The  symbolic  names  (v)  are  assigned  the 
specifier^  data  type. 


Manual 
8*ction 


VIRTUAL  a(d)  (,a(d)^. .. 

a(d)     An  array  declarator. 


Specifies  storage  space  for  arrays 
outside  normal  program  address  space. 


5.5 


WRITE  {u,f : ,ERR«s] ) (list) 
PRINT  f[,listl 
TYPE   fl,listl 

m  An  integer  expression. 

f        A  format  specifier. 

•        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Writes  one  or  more  records  to  logi'~*l  unit 
u,  containing  the  values  of  the  elements 
in  the  list.   The  values  are  converted 
according  to  format  specification  f. 


7.3.2 


WRITE  (u[ ,ERR«s] ) [list] 

S        An  integer  expression. 

S        A  label  of  an  executable  statement  label. 

list     An  I/O  list. 

Writes  one  unformattcid  record  to  logical 
unit  u  containing  the  values  of  the  elements 
in  the  list. 


7.3.6 


WRITE  {u'r(,ERR-sl )  [listl 


list 


An  integer  expression. 

An  integer  expression. 

A  label  of  an  executable  statement  label 

An  I/O  list. 

Writes  record  r  to  logical  unit  u  containing 
the  values  of  the  elements  in  the  list. 


7.4.4 
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WRITE(u,*(,BRR-s] ) list 
PRINT  *,li8t 
TYPE  •,li8t 


Bff«Ct 


Hanaal 
Section 


7.3.4 


t 
list 


An  integer  expression. 

Denotes  list-directed  formatting. 

A  label  of  an  executable  statement. 

An  I/O  list. 

Writes  one  or  more  logical  records  to  logical 
unit  u  containing  the  values  of  the  elements 
in  the  list.   The  values  are  converted 
according  to  the  data  type  of  the  list 
element. 


B.3   LIBRARY  PONCTIOHS 

Table  B-2  lists  the  FORTRAN  IV  library  functions, 
table  refer  to  notes  which  follow  the  table. 


Superscripts  in  the 


Table  B>2:   FORTRAN  Library  Functions 


Pora 


ABS(X) 
lABS(I) 
DABS(X) 
CABS(Z) 

FLOAT (I) 
IFIX(X) 
SNGL(X) 
DBLB(X) 
REAL (2) 

AIHAG(Z) 

CMPLX(X,Y) 


AINT(X) 

INT(X) 

IDINT(X) 


Definition 


Real  absolute  value 

Integer  absolute  value 

Double  precision  absolute  value 

Conplex  to  Real,  absolute  value^ 


Integer 
Real  to 
Double 
Real  to 
Conplex 

obtai 
Complex 

obtai 
Real  to 

CNPLX 


to  Rea 
Intege 

to  Real 
Double 
to  Rea 

n  real 
to  Rea 

n  iaagi 
Comple 

(X,Y)-X 


1  conversion 2 

r  conversion^ 
conversion^ 
conversion^ 

1  conversion, 

part 

1  conversion, 

nary  part 

X  conversion 

♦  i*Y 


Truncation  functions  return  the  sign  of 
the  argument  *  largest  integer  '1   largi 

Real  to  Real  truncation^ 
Real  to  Integer  truncation3 
Double  to  Integer  truncation^ 

Remainder  functions  return  the  remainder 
when  the  first  argument  is  divided  by 
the  second. 


AtgusMnt 

»yp« 

■eaalt 

Type 

Real 
Integer 
Double 
Conplex 

Real 
Integer 
Double 
Real 

Integer 
Real 
Double 
Real 

Real 

Integer 

Real 

Double 

Conplex 

Real 

Conplex 

Real 

Real 

Conplex 

Real 

Real 

Real 

Integer 

Double 

Integer 

(continued  on  next  page) 
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Foca 


AHOD(X,y) 

NOD(I,J) 

OMOD(X,Y) 


AMAXO ( I , J , 
AMAX1(X,Y, 
NAXO(I,J,. 
MAX1(X,Y«. 
DMAX1(X,Y, 


AMINO(I,J,. 
AHIN1(X,Y,. 
HINO(I,J,.. 
MIN1(X,Y,.. 
DMIN1(X,Y,. 


SIGN(X,Y) 

ISIGN(I,J) 

DSIGN(X.Y) 


DIM(X,Y) 
IDIM(I,J) 


EXP(X) 

DEXP(X) 

CEXP(Z) 

ALOG(X) 

ALOGIO(X) 

DLOG(X) 

DLOGIO(X) 

CLOG(Z)^ 

SORT(X) 

DSQRT(X) 

CS0RT(Z)5 


.) 
.) 
) 
) 


.) 
.) 


.) 


Definition 


Real  remainder 

Integer  remainder 

Double  precision  remainder 

Maximum  value  functions  return  the 
largest  value  from  among  the  argument 
list;  2  or  more  arguments. 

Real  maximum  from  Integer  list 
Real  maximum  from  Real  list 
Integer  maximum  from  Integer  list 
Integer  maximum  from  Real  list 
Double  maximum  from  Double  list 

Minimum  value  functions  return  the  small- 
est value  from  among  the  argument  list; 
2  or  more  arguments. 

Real  minimum  of  Integer  list 
Real  minimum  of  Real  list 
Integer  minimum  of  Integer  list 
Integer  minimum  of  Real  list 
Double  minimum  of  Double  list 

The  transfer  of  sign  functions  return 
(sign  of  the  second  argument)  *  (absolute 
value  of  first  argument) . 

Real  transfer  of  sign 

Integer  transfer  of  sign 

Double  precision  transfer  of  sign 

Positive  difference  functions  return  the 
first  argument  minus  the  minimum  of  the 
two  arguments. 

Real  positive  difference 
Integer  positive  difference 

Exponential  functions  return  the  value 
of  e  raised  to  the  argument  power, 

ex 

loge(X) 

logio(X) 

lo9e(X) 

logio(X) 

loge(Z) 

Square  root  of  Real  argument 

Square  root  of  Double  precision  argument 

Square  root  of  Complex  argument 


Arguaient  Result 
Type     Type 


Real 

Integer 

Double 


Real 
Integer 


Real 

Integer 

Double 


Integer 
Real 

Real 
Real 

Integer 

Real 

Double 

Integer 
Integer 
Double 

Integer 
Real 

Real 
Real 

Integer 

Real 

Double 

Integer 
Integer 
Double 

Real 

Real 

Integer 

Integer 

Double 

Double 

Real 
Integer 


Real 

Real 

Double 

Double 

Complex 

Complex 

Real 

Real 

Real 

Real 

Double 

Double 

Double 

Double 

Complex 

Complex 

Real 

Real 

Double 

Double 

Complex 

Complex 

(continued  on  next  page) 
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Form 


Definition 


SIN(X) 

DSIN(X) 

CSIN(Z)fi 

COS(X) 

DCOS(X) 

CCOS(Z)* 

TANH(X) 

ATAN(X) 
DATAN(X) 
ATAN2(X,Y) 
DATAN2(X,y)7,8 

CONJG(Z) 


RAN(I,J)9 


Real  sine 

Double  precision  sine 

Complex  sine 

Real  cosine 

Double  precision   cosine 

Complex    cosine 

Hyperbolic    tangent 

Real    arc    tangent 

Double   precision   arc    tangent 

Real    arc    tangent    of    (X/Y) 

Double   precision   arc    tangent    of    (X/Y) 

Complex   conjugate,    if    Z»X-«-i*Y 
CONJG(Z)-X-i*Y 

Returns   a   pseudo-random   number    of 

uniform   distribution    over    the    range   of 
0    to    1. 


Arguaient 

Result 

Type 

Type 

Real 

Real 

Double 

Double 

Complex 

Complex 

Real 

Real 

Double 

Double 

Complex 

Complex 

Real 

Real 

Real 

Real 

Double 

Double 

Real 

Real 

Double 

Double 

Complex        Complex 


Integer         Real 


1.  The   absolute   value   of   a   complex    number,    (X,Y),    is    the    real    value: 

(x2+y2)1/2 

2.  Functions  that  cause  conversion  of  one  data  type  to  another  type 
provide  the  same  effect  as  the  implied  conversion  in  assignment 
statements.  The  function  SNGL  with  a  real  argument  and  the  function 
DBLE  with  a  double  precision  argument  return  the  value  of  the  argument 
without  conversion. 

3.  (x]  is  defined  as  the  largest  integer  whose  magnitude  does  not 
exceed  the  magnitude  of  x  and  whose  sign  is  the  same  as  that  of  x. 
For  example  [5.7]  equals  5.   and  [-5.7]  equals  -5. 

4.  The  argument  of  ALOG,  DLOG,  ALOGIO,  and  DLOGIO  must  be  greater 
than  0.   The  argument  of  CLOG  must  not  be  (0.,0.). 

5.  The  argument  of  SQRT  and  DSQRT  must  be  greater  than  or  equal  to  0, 
The  result  of  CSQRT  is  the  principal  value  with  the  real  part  greater 
than  or  equal  to  0.  When  the  real  part  is  0,  the  result  is  the 
principal  value  with  the  imaginary  part  greater  than  or  equal  to  0. 

6.  The  argument  of  SIN,  DSIN,  COS,  DCOS,  TAN,  ani  DTAN  must  be  in 
radians.   The  argument  is  treated  modulo  2*pi . 

7.  The  result  of  ASIN,  DASIN,  ACOS,  DACOS,  ATAN,  DATAN,  ATAN2,  and 
DATAN2  is  in  radians. 

8.  The  result  of  ATAN2  and  DATAN2  is  0  or  positive  when  a(2)  is  l-^ss 
than  or  equal  to  0.   The  result  is  undefined  if  both  arguments  are  0. 

9.  The  argument  for  this  function  must  be  an  integer  variable  or 
integer  array  element.  The  argument  should  initially  be  set  to  0. 
The  RAN  function  stores  a  value  in  the  argument  that  it  later  uses  to 
calculate  the  next  random  number.  Resetting  the  argument  to  0 
regenerates   the   sequence.    Alternate   starting    values   generate 

sequences . 


different  random  nunber 
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INDEX 


A  field  descriptor,  8-10  to  8-11, 

8-18 
Absolute  value  of  integer 

constant,  2-4 
ACCEPT  statement,  B-2,  B-9  to 
B-10,  B-13 
formatted  sequential,  7-8 
list-directed,  7-10 
See  also  Input 
ACCESS  keyword,  9-2,  9-3,  9-5 
Access  modes,  7-2  to  7-3 
direct,  7-3 
sequential,  7-2 
Access,  shared,  9-9 
Actual  arguments,  2-10,  6-1  to 

6-3 
Actual  record  length,  9-4,  9-8 
Addition,  2-14 

Adjustable  arrays,  2-13,  6-3 
All-blank  field,  8-3,  8-5,  8-9 
Allocation,  2-3 
Allocating  storage  elements, 

5-3 
All-zf»ro  statement  label,  1-6 
Alphanumeric  literals,  2-8 
American  National  Standard 
FORTRAN  X3. 9-1966,  1-1 
.AND.,  2-19 
Apostrophe  character,  2-8, 

7-17,  8-12 
'APPEND*  Access  value,  9-3,  9-5 
Append  spaces,  2-9 
Area,  1-byte  storage,  2-3 
Argument  list,  4-9 
Arguments 

actual,  2-9,  6-1  to  6-3 
associating  Jummy  and 
actual ,  6-1  to  6-2 
in  the  CALL  statement,  4-9 
dummy,  2-9,  4-9,  6-1  to 

6-3,  6-5 
function  references  used  as, 

5-11 
subprogram,  6-1  to  6-3 
Ar  i  thmet  ic 

assignment  statement,  3-1 
elements,  2-14,  2-15 
oxpression,  2-14,  2-15,  2-16, 

6-4 
IF  statement,  4-3  to  4-4 
operators,  2-14,  B-1 
Ari thmet ic^log ical  assignment, 

B-2 
Array,  2-1,  2-2,  2-11 
adjustable,  2-13,  6-3 
data  type  of  an,  2-12 
dimensions  in,  5-3  to  5-4 
unsubscripted,  2-12  to  2-13, 
4-9,  5-14,  7-5 


Array  declarator,  2-11,  5-3 
Array  elements,  2-1,  2-10,  2-11, 
2-14 
and  DATA  statements,  5-12  to 

5-13 
transmitting,  7-6 
Array  format  specifications, 
8-23 
making  equivalent,  5-9  to 

5-10 
multidimensional,  2-10,  7-7 
Array  references,  2-12,  2-13,  7-5 

r  i-time  formats  in,  8-20  to  8-21 
Array  size,  dummy,  6-3 
Array  storage,  2-12 
ASCII 

character  set,  A-1  to  A-2 
characters,  8-22 
null  character,  9-8 
octal  equivalents  of  Radix-50 
characters,  A-2 
ASSIGN  statement,  3-3  to  3-4, 

4-2,  4-3 
Assigned  GO  TO  statement,  4-2  to 

4-3 
Ass  igni  ng 

initial  values  in  common 

blocks,  5-14 
L0GICAL*1  elements  to 

COMMON,  5-5 
storage  locations,  5-9 
symbolic  program  name,  5-13 
values,  3-1 

values  to  list  elements,  7-5 
values  to  variables,  arrays, 
and  array  elements,  5-12 
Assijnment,  ac i thmet ic^log ica I , 

B-2 
Assignment  operator,  2-8 
Assignment  statements,  3-1  to 

3-4 
Associat^^d  variables,  2-9,  9-13 
ASSOCIATEVARIABLE  keyword,  9-2, 

9-3,  9-5 
Associating  dummy  and  actual 

arguments,  6-1  to  6-2 
Asterisk  (*)  ,  1-3,  8-3,  8-4 
Attributo  specifications,  9-1 
Auxiliary  I/O  statement,  9-1 

BACKSPACE  stat.»inent,  9-1,  9-11 

B-3 
Base  elements,  2-15 
Basic  component,  2-13  to  2-14 
Basic  real  constant,  2-5 
Binary  iJata,  7-1 
Binary  operator,  2-8,  2-14 
Blank.  Sop  Space  character 
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Blink  common  block,  5-4 

boundaries,  crossing  disk, 
9-8 
Block,  common,  2-2,  5-4  to  5-5 
See  also  Common  blocks 

data  subprograms,  2-2 

size,  physical,  9-5 
BLOCK  DATA  Statement,  5-13  to 

5-14,  6-8,  6-9 
BLOCKSIZE  keyword,  9-2,  9-3,  9-5 
Blocks  of  storage,  5-4 
Bound 

dimensions,  2-13 
Boundary  allocation,  byte,  5-9 
Boundary,  word,  5-5 

BUFFERCOUNT  keyword,  9-2,  9-3,  9-6 
Bypassing  input  records,  8-19 
Byte  boundary,  odd,  5-9 
Byte,  zero,  9-8 

C  (letter),  1-3,  1-6 
CALL  statement,  4-9,  5-11 
6-8,  B-3 
discussion  of,  4-9 
Carriage  control  character,  8-18, 

8-24,  9-6 
CARRIAGeCONTROL  keyword,  9-2, 

9-3,  9-6 
Character  count,  2-7 
Character  set 

ASCII,  A-1,  A-2 
FORTRAN,  1-3,  A-1 
RADIX-50,  A-2,  A-3 
Characters 

apostrophe,  2-8 

ASCII,  8-22 

carriage  control,  8-18,  8-24 

colon  (:) ,  8-14 

dollar  sign  ($) ,  8-13  to  8-14, 

8-18 
number  of,  to  be  transferred, 

8-13 
Plus  (+),  8-18 
position  72,  1-7 
position  of,  in  the  external 

record,  8-12  to  8-13 
printable,  1-4,  A-1 
space,  1-6 
special,  1-3 
tab,  1-5 
character -per -column 

formatting,  1-5 
maximum  number  of,  stored  in 
variables,  8-10 
Classes  of  symbolic  names,  2-2 
CLOSE  statement,  9-1,  9-10 

B-3 
Coding  form,  FORTRAN,  1-4 
Colon  {:)  descriptor,  8-14 
Column 

number,  2-10 
one  through  72,  1-5 
seventy-three  through  80, 
1-5 


Commas,  7-11 

as  a  field  separator,  8-20, 
8-23 
Comments,  1-3,  1-6 
indicator,  1-6 

line,  1-6,  1-7 
Common  blocks,  2-2,  5-4  to  5-5 

assigning  LOGICAL*l  elements 
to  5-5 

blank,  5-4 

EQUIVALENCE  and,  5-10 

extending,  5-10 
initial  values  in,  5-14 
COMMON  statement,  2-9,  2-10,  5-1 

5-4  to  5-5,  B-4 
Complex  constant,  2-6  to  2-7, 

7-11 
Complex  data  editing,  8-14  to  8-15 
Complex  data  type,  2-3,  2-16 
complex  operations,  2-17 
Complex  value,  8-14  to  8-15 
C0MPLEX*8,  2-3 
Components,  FORTRAN  statement, 

2-1 
Computed  GO  TO  statement,  4-2 
Conditional  statement  execution, 

4-4 
Constant,  2-4,  7-11 

absolute  value  of  an  integer,  2-4 

complex  2-6  to  2-7,  7-11 

double  precision,  2-6 

Hollerith,  1-1,  1-3,  2-7,  7-11, 
8-2,  8-11 

input,  7-15 

integer,  2-4 

logical,  2-7,  7-11 

magnitude  of  a  real,  2-5 

negative  double  precision, 
2-6 

negative  integer,  2-4 

positive  integer,  2-4 

real,  2-5  to  2-6 

truncated,  2-9 

values,  7-11 
Constants,  2-1 

and  DATA  statement,  5-12 

octal  integer,  2-4 

repetition  of,  7-li 

unsigned  integer,  2-4,  8-22 
Contiguous  storage  locations, 

2-10,  5-4 
Continuation 

field,  1-6 

indicator,  1-5,  1-6 

lines,  1-6 
CONTINUE  statement,  4-9,  B-4 
Control 

carriage,  8-18,  8-24 

DO  iteration,  4-6 

format,  8-21 

in  DO  loops,  4-6 
Control  statements,  4-1 
Control  transfer  methods,  4-1 
to  4-4,  6-4,  6-6,  6-8 
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Control  variable,  4-5,  7-7 

DECODE  statement,  7-4,  7-17  to 

^^^       Conversion, 

7-18,  8-4 

^^^         double  precision,  2-17 

Default  allocations  for  data 

^^F         rules  for  assignment 

types,  2-3 

statements,  3-2 

Default  lata  names,  5-1 

Count 

Default  field  descriptors,  8-17  to 

character,  2-7 

8-18 

group  repeat,  8-17,  8-23 

DEFINE  FILE  stat«™ent ,  9-1, 

iteration,  4-6 

9-12  tc  9-13,  B-4  to  B-5 

repeat,  8-1 

Defined  vari<ible,  7-9 

C'.ossing  disk  block  boundaries,  9-8 

•DELETE'  DISPOSE  value,  9-3,  9-6 

Delimiting  periods,  2-7,  2-18,  2-19 

D  (letter),  1-6,  2-6 

D  exponent  field  indicator,  8-7, 

Descr  iptor 

:  (colon} ,  8-14 

8-23 

S  (dollar) ,  8-13  to  fc-14 

D  field  descrirtor,  8-2,  8-7  to 

field,  8-2  to  8-18,  8-21,  8-22, 

8-8,  8-16 

8-23 

Data 

Dimension 

alphanumeric,  transmission  of. 

adjustable,  6-3 

9-12 

in  an  array,  5-1 

^^^         editing  bet«#een  internal  and 

declarator,  2-11 

^^B             external  form,  7-1 

variable,  2-13,  6-3 

^^         editing  complex,  8-14  to  8-15 

DIMENSION  statement,  5-3  to  5-4, 
t»-5 

format  tor  input  and  output. 

8-1 
intejer,  2-10 
lo<;ical,  2-14 

Direct  access,  7-3 

files.  .-1,  9-7, 
9-12 

magnitude,  anJ  G  formats,  8-9 

I/O 

rounding  numeric,  7-9 

statement,  9-13 

transfer.  7-1  to  7-2,  7-7  to 

unformatted,  7-15  to  7-16 

7-10,  7-12  to  7-17,  8-2 

READ  state-nent. 

^^       DATA  statement,  2-9,  2-11,  '^-l. 

unformatted,  7-15  to  7-16 

^V           5-12  to  5-13 

MRITE  statement. 

^^^       Data  type,  2-2  to  2-3,  2-8  to  2-9, 

unformatted.  7-16 

2-10,  2-16  to  2-17,  6-2,  7-14 

•DIRECT'  ACCESS  value,  9-3 

of  an  arithmetic  expression, 
2-16 

Disconnecting  a  f;le,  9-10 
DISPOSE  lOISP)  keyword,  9-2,  9-3 

of  an  array,  2-12 
complex,  2-3,  2-16 
declaration  statement,  5-2  to 

9-6 
Disposition,  file  lefault*  9-6 
DO  Iteration  control,  4-:. 

5-3 

DC  list,  .mplied,  "'-6 

default  rules,  S-1  to  5-2 

DO  loop,  4-6,  4-7  to  4-8, 

^^^        doublt*  precision,  2-3,  2-6 

6-11,  7-10 

^^P         by  ;mpl  i^<at  ton,  2-10 

DO  ramie,  executions  of  the,  4-6 

^^         integer,  2-2,  i-4 

DO  statement,  4-5  to  4-6,  7-6, 

length  specifier,  2-3,  5-3 

B-5 

of  t»U)  list  elements,  7-!l 

Dollar  sign  (St,  9-13  to  8-14, 

logical,  2-3,  2-16 

8-18 

rank  of,  2-17 

Double  precision,  2-3,  2-15, 

real,  2-3,  2-5,  2-16 

2-16.  8-8 

spmci f icat ions,  2-10,  5-2  to 

constant,  2-6 

5-  J 

conversion,  2-17 

storage  requirements,  2-3 

n«»gati/e  constant,  2-6 

operations,  2-17 

Debugging  flt«t«>m«nt,  1-2,  1-6 

Dumm/  argu««nts,  2-9,  4-9,  5-8, 

Decimal  point,  8-15,  8-16,  8-23 

6-1  to  6-3,  6-5 

scale  f-«ctor  and,  8-15  to  8-17 

association  with  actjal 

Omclaration,  mxplicit  typm,  2-10 

-irgjments,  6-1  to  6-2 

Declaration  stat«m«nts,  type,  2-10, 

in*^eger,  6-3 

5-1,  5-2  to  5-3 

Oimmy  array  5ite,  6-3 

Declarator 

^^         aijjatab1«>  irray,  6-1 

^/k                   «rray,  2-li,  5-3,  5-6 

C  field  descriptor,  8-2,  8-6  to 

^^^        4. mansion,  2-11 

•  -7,  8-15,  8-U 

Inde 

X'3 
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Editing,  complex  data,  6-14  to 

8-15 
Editor,  using  a  text,  1-6 
Elements 

arit   -^tic,  2-14,  2-15 
array,  2-1,  2-lC,  2-11,  2-14 

See  also  Array  elements 
ass'gning  values  to  list,  7-5 
base,  2-15 

of  a  FORTRAN  program,  1-2,  1-3 
logical,  2-20 
Embedded  spaces,  8-2 
ENCODE  statement,  7-4,  7-17  to 

7-18 
End-of-file 

'♦ondition,  7-3  to  7-4 

ord,  7-4,  9-12 
transfer  cf  control  on,  7-4 
END«  speci  f  icv-tion,  1-1,  7-4, 

.1-7 
ENi3  Statement,  1-2,  4-11,  B-6 
ENDFILE  statement,  9-1,  9-12, 

B-6 
.EQ.,  2-18 
Equal  sign,  3-1 
EQUl VALENCE  statement,  2-9, 

5-1,  5-8  to  5-10,  3-7 
.BQV.,  2-19 
ERR  keyword,  9-2,  9-3, 

9-6  to  9-7 
EPR«  specification,  1-1,  7-4, 

9-7,  B-6 
Error  condition,  7-3  to  7-4,  9-6 
Evaluation  of  operators,  2-19 
Evaluation  order,  2-16 
Even  byte  boundary,  5-5 
Exclamation  point,  1-3 
Executable  program,  1-2,  5-4, 

5-5 
Executable  statements,  1-2,  5-16 
Exec J t  ion 

of  a  condition  sta*-ement,  4-4 

of  the  DO  range,  4-6 

of  a  form-^tted  I/O  statement, 

8-21 
termination  of  statement,  4-10 
to  4-11 
Explicit  type  declaration,  2-10 
Exponent,  2-5,  2-6,  8-5 

in  an  external  field,  8-23 
Exponent  field  indicator,  8-6 
Exponentiation,  2-14,  2-15 
Express  ions , 

arithmetic,  2-14,  2-15,  2-16, 

6-4 
complex,  2-18 

defined,  2-1,  2-13  to  2-14 
in  1/0  li!«t,  7-5 
logical,  2-14,  2-18  to  2-19, 

4-4,  6-4 
mi  xo'J-mode,  1-1 

relational,  2-14,  2-17  to  2-18 
in  statement  functions,  6-5 
subscript,  2-11  to  2-12,  5-4,  7-5 


Expression  operators,  B-1  to  B-2 
Extended  range,  DO  loop,  4-8 
Extending  a  file,  9-7 
Extending  the  common  block,  5-10 
EXTENDSIZE  keyword,  9-2,  9-3, 

9-7 
External  field 

constructing,  8-22  to  8-23 

procedure  names,  5-11 

separators,  8-19  to  8-20,  8-23 
EXTERNAL  statement,  5-1,  5-11,  B-7 

F  field  descriptor,  8-2,  8-5  to 
8-6,  8-15,  8-17 

Factor,  scale,  8-15  to  8-17, 
8-22 

.FALSE.,  2-7 

Field 

all-blank,  8-3,  8-5,  8-9 
continuation,  1-6 
external,  8-22  to  8-23 
fractional  part  of,  8-23 
null  (zero-length),  8-20,  8-23 
separators,  external  8-1,  8-19 

to  8-20,  8-23 
sequence  number,  1-7 
statement ,  1-7 
statement  label,  1-6 
termination,  short,  8-19 

Field  descriptors,  8-2  to  8-18, 
8-21,  8-22,  8-23 
A,  8-10  to  8-11,  8-18 

D,  8-2,  8-7  to  8-8,  8-16 

E,  8-2,  8-6  to  8-7,  8-15,  8-16 

F,  8-2,  8-5  to  8-6,  8-15,  8-17 

G,  8-2,  8-8  to  8-9,  8-17 
H,  8-11  to  8-12 

I,  8-2  to  8-3 

L,  8-9  to  8-10 

0,  8-4 

Q,  8-13 

T,  8-12  to  8-13 

X,  8-12 

general  rules  for  8-22 
Field  Width 

default  values,  8-18 

specification  8-23,  8-24 
File,  7-2 

access  to  a,  7-2  to  7-3 

attributes  of,  9-1 

sequential  organization,  7-2 
Filling  array  elements,  5-12 
FIND  statement,  9-1,  9-11  to  9-12, 

B-7 
First  character  of  a  record, 

output,  8-18,  8-24 
Fixed-length  records,  9-13 
form 

FORTRAN  coding,  1-4 

"n,  2-3      

r*,  7-11 

r*c,  7-11 

readable  character,  7-1 
FORM  keyword,  9-2,  9-3,  9-7 
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Format 

G,  effect  of  data 

magnitude  on,  8-8 
reversion,  8-16,  8-21  to  8-22 
rules  for,  summarized,  8-22  to 

8-24 
run-time,  8-20  to  8-21 
Format  control,  8-23  to  8-24 
Format  separators,  8-1,  8-18  to 

8-19 
Format  specifiers,  7-1,  7-3 
FORMAT  statement,  7-3,  7-8,  7-10, 

8-1,  8-22  to  8-24,  B-6 
Format,  summary  of  codes,  8-24 
'FORMATTED'  FORM  value,  9-3, 

9-7 
Formatted  I/O.  See  Input;  Output 
'FORTRAN*  CARRIAGECONTROL  value, 

9-3,  9-6 
FORTRAN  character  set,  1-3,  A-1 

ORTRAN  language  summary,  B-1 
FORTRAN  library  functions,  6-9 
B-13  to  B-14 
See  also  Processor-defined 
functions 
FORTRAN  line  formatting,  1-4  to 

1-7 
FORTRAN  program  elements,  1-2, 

1-3 
FORTRAN  X3. 9-1966,  American 

National  standard,  1-1 
Four-byte  allocation,  2-3 
Fractional  part  oE  the  field, 

8-23 
Function 

file  positioning,  9-1 
Function  reference,  2-1,  4-11, 
6-4 
processor-defined,  6-9 
statement,  6-5,  6-6 
used  as  arguments,  5-11 
FUNCTION  statement,  6-4,  6-6 

to  6-8,  B-8 
Function  subprogram,  2-2, 

6-6  to  6-7 
F»',nctions 

FORTRAN  library,  6-9 

B-13  to  B-14.  See  also 

Processor-defined  functions 
statement,  6-5,  6-6,  B-2 

G  field  descriptor,  8-2,  8-8  to 

8-9,  8-17 
G  formats,  effect  of  data 

magnitude  on,  8-9 
.GE.,  2-13 

GO  TO  statement,  4-1  to  4-3,  B-7 
Group  repeat  count,  8-17,  8-23 
.GT.,  2-18 

H  (letter)  ,  2-7 

H  field  descriptor,  8-11  to  8-12 


Hollerith  constants,  1-1,  1-3,  2-4, 
2-7  to  2-9,  7-11,  8-2,  8-11 
data  type  rules  for,  2-8  to 
2-9 

Hollerith  data,  5-2,  8-10,  8-20 

I  field  descriptor,  8-2  to  8-3 
I/O.  See  Input/Output 
IF  statement,  4-4,  B-7  to  B-8 
Imaginary  numbers,  2-3,  2-6 
Implication,  data  type  by,  2-10. 

See  also  Data  type 
Implicit  logical  unit,  7-1 

number,  7-3,  7-8 
IMPLICIT  statement,  2-9,  2-10, 

5-1  to  5-2,  B-8 
Implied  DO  lists,  7-6 
Increment  parameter,  4-5 
Indicator,  1-6 
Initial  parameter,  4-5 
Initial  space  allocation,  9-7 
INITIALSIZE  keyword,  9-2,  9-3,  9-7 
Initiator,  record,  8-19 
Inner  loop,  4-7  to  4-8 

See  also  DO  loop 
Input,  7-1 

constant,  7-11 

field,  external,  8-22  to  8-23 
FORMAT  statement  rules,  8-23 
statements,  2-9,  7-1 

formatted  sequential,  7-7 

to  7-9 
list-directed,  7-10  to  7-12 
unformatted  direct  access, 

7-15  to  7-16 
unformatted  sequential,  7-14 
to  7-19. 
See  also  READ  statement;  ACCEPT 
statement 
Input/output 
devices,  7-3 
lists,  7-4  to  7-5,  8-23 
format  control  inter- 
action with,  8-21  to  8-22 
sequential,  7-7 
statement  components,  7-3  to 

7-7. 
See  also  Input;  Output 
Integer,  2-2,  2-3,  2-15 
constant,  2-4, 

absolute  value  of  an,  2-4 
negative,  2-4 
unsigned,  8-22 
data,  2-10 

rules  for,  8-3 
and  logical  operator,  2-19  to 

2-20 
variables,  2-10,  6-3 
Integer  operations,  2-17 
lr4rEGER*2,  2-3 
IMTEGKH*4,  2-3 

Internal  r-^present-it  ion ,  2-20, 
7-1 


In;lex- J 


INDEX 


Iteration 

DO  iteration  control,  4-6 
Newton-Raphson  method,  6-7 

•KEEP'  DISPOSE  value,  9-3,  9-6 
Keywords  in  the  OPEN  statement, 
9-1  to  9-9 

L  field  descriptor,  8-9,  8-10 
Label,  statement,  1-5,  1-6,  6-8, 
7-3 
field,  1-6 
list,  1-2 
reference,  3-4 
Language  summary,  FORTRAN,  B-1  ^ 
.LE.,  2-18 

Leading  spaces,  8-2,  8-5 
Length  specifier,  data  type, 

2-3,  5-3 
Letters,  lower-  and  uppercase, 

1-3 
Library  functions,  FORTRAN, 
6-9,  B-13  to  B-14. 
See  also  Processor-defined 
functions 
Line,  1-2 

comment,  1-6,  1-7 
continuation  1-7,  1-9 
formatting  a  FORTRAN,  1-4  to  1-7 
List 

argument,  4-9 

elements,  assigning  values  to, 

7-5 
implied  DO,  7-6 
I/O,  7-4  to  7-5,  8-21 
simple  I/O,  7-5 
statement  label,  1-5,  1-6 
•LIST'  CARRIAGECONTROL  value, 

9-3,  9-6 
List-directed  I/O. 

See  Input;  Output 
List-directed  output  formats 

(table) ,  7-13 
Literals,  alphanumeric. 

See  Alphanumeric  literals 
Locations.  See  Storage 
Logical  assignment  statement, 

3-3 
Logical  constant,  2-7,  7-11 
Logical  data 

transfer  of,  8-9 
type,  2-3,  2-16,  3-3 
Logical  elements,  2-20 
Logical  expressions,  2-14,  2-18  to 

2-19,  4-4 
Logical  IF  statement,  4-4 
Logical  operators,  2-19  to  2-20, 

B-1  to  B-2 
Logical  record  length,  9-8 
Logical  unit,  7-1 

number,  7-3 
Logical  values,  2-14,  2-18,  2-20, 
3-3 


L0GICAL*1,  2-3 
array,  5-5,  5-6 
elements,  assigning  to 
COMMON,  5-5 

L0GICAL*2,  2-3 

L0GICAL*4,  2-3 

Loop.  See  DO  loop 

Lowercase  letter,  1-3 

.LT.,  2-18 

Main  program,  1-2,  2-2 
RETURN  and,  4-10 
terminating,  4-11 
Maximum  Radix-50  value,  A-3 
MAXREC  keyword,  9-2,  9-3,  9-7  to 

^-8 
Memory  requirements  for  data 

types,  2-3 
Minus,  unary,  2-14 
Mixed-mode  expressions,  1-1 
Multibuffered  I/O,  9-6 
Multidimensional  arrays, 

process 'ng,  7-7 
Multiplicat  on,  2-14 

*n,  2-3 

NAME  keyword,  9-2,  9-3,  9-8 

Named  common  block,  5-4 

Names 

common  block  5-4 

external  procedure,  5-11 

symbolic,  2-1,  2-2,  2-9,  2-10, 
2-11 
.NE.,  2-18 

Negative  constants,  2-4,  2-6 
Nested  DO  loops,  4-7 
'NEW  TYPE  value,  9-4,  9-9 
Newton-Raphson  iteration  method, 

6-7 
•NONE'  CARRIAGECONTROL  value, 

9-3,  9-6 
Nonexecutable  statements,  1-2, 

5-  1 
NOSPANBLOCKS  keyword,  9-2,  9-3, 

9-8 
.NOT.,  2-9 
Null 

character,  ASCII,  9-8 

record,  7-15 

value,  7-11 

values,  repetition  of,  9-15 

zero-length  field,  8-20,  8-23 
Number 

complex,  2-6  to  2-7 

of  dimensions  in  arrays,  2-10 

implicit  logical  unit,  7-3, 
7-8 

logical  unit,  7-3 

of  blocks ,  9-7 

statement,  1-6 
Numeric  data,  rounding,  7-9 
Numeric  value,  2-14 
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0  field  descriptor. 
Octal  integer  const 
Octal  values,  trans 
'OLD'  TYPE  value,  9 
One-byte  storage  ar 
One  (I)  character. 
One-dimensional  arr 
OPEN  statement,  9-1 
to  B-9 
examples,  9-4 
keywords,  9-1  to 
Operators 

arithmetic,  2-14, 
assignment,  2-8 
evaluation  of,  2- 
exponentiation,  2 
expression,  B-1  t 
logical,  2-19  to 

to  B-2 
precedence  of,  2- 
relational,  2-17 
role  of,  2-14 
unary,  2-14 
.OR.,  2-19 
Order  of  subscript 

2-12,  5-12 
Ordering  rules,  sta 
Outer  loop,  4-7  to 
See  also  DO  loop 
Output,  7-7 

formatted  sequent 

7-10 
list-directed,  7- 
unformatted  direc 

7-16 
unformatted  seque 

7-15 

See  also  WRITE  st 

PRINT  statement 

statement;  TYPE 

Output  format  rules 


8-4 
ant,  2-4 
fer  of,  8-4 
-4,  9-9 
ea,  2-3 
8-18 
ay,  2-10 

to  9-4,  B-8 


9-9 

B-1 

19 
-14 
o  B-2 
2-20,  B-1 

15 

to  2-18,  B-1 


progression, 

tement,  1-7 
4-8. 


ial,  7-9  to 

12  to  7-13 
t  access, 

ntial,  7-14  to 


to 


atement; 
;  REWRITE 

statement 
,  8-23  to  8-24 


Parameter 

of  DO  statements,  4-5. 

See  also  Constants 
Parentheses,  2-15  to  2-16,  2-18, 

2-20,  7-11,  8-1,  8-17 
PAUSE  statement,  4-10,  B-9 
Periods,  delimiting,  2-7,  2-18, 

2-19 
Physical  block  size,  9-5. 

See  also  Block 
Plus  (•»•)  character,  8-18 
Plus,  unary,  2-14 
Point,  decimal,  8-15,  8-16,  8-23 
Positive  integer  constant,  2-4. 

See  aJso  Constant 
Precedence,  2-15,  2-18,  2-19 
Precision,  loss  of,  7-9. 
See  also  Data  type  storage 

requirements;  Double 

precision 
•PRINT'  DISPOSE  value,  9-3,  9-6 


3-4, 
6-8, 


5-16, 

5-4, 

6-9 


B-9 


to  5-14 


PRINT  Statement,  B-9,  B-12, 
B-1  3 
formatted  sequential,  7-9 

7-10 
list-directed,  7-12  to  7-13. 
See  also  Output 
Printing  characters,  1-4,  A-1 
Procedure,  computing,  1-3 
Procedure  names 
external,  5-11 

as  subprogram  arguments,  5-11 
Processing 

carriage  control,  9-6. 

See  also  Carriage  control; 
CARRIAGECONTROL  keyword 
iterative,  4-5 

multidimensional  arrays,  2-10, 
7-7 

termination  of,  7-11 

Processor-defined  function,  2-2, 

6-9 
Program 

elements  of  a  FORTRAN,  1-2,  1-3 

executable,  1-2,  5-4,  5-5 

FORTRAN,  1-2 

main,  1-2,  2-2 

terminating,  4-11 
PROGRAM  statement,  5-1, 
Program  unit,  1-2, 
5-5,  6-6,  6-7, 

block  data,  5-13 

end  of,  4-11 

structure,  1-7 
Progression,  order  of  subscript, 
2-12,  5-12 

Q  field  descriptor,  8-13 

Radix-50,  A-2  to  A-3 
Rank,  data  type,  2-17 
READ  statement,  B-9,  B-10 

formatted  sequential,  7-7  to  7-8 

list-directed,  7-10  to  7-11 

unformatted  direct  access, 
7-15  to  7-16 

unformatted  sequential,  7-14. 
See  also  Input 
Read-only  file,  9-6 
READONLY  keyword,  9-2,  9-3,  9-8 
Re-al  data  type,  2-3,  2-5,  2-16 
Real  constant,  2-5  to  2-6 
REAL*4,  2-3 
Record,  7-2 

end  of  a,  7-11 

external,  character  position 
in,  8-12,  8-13 

first  character  of  an  output, 
8-18,  8-24 

initiator,  8-19 

length  of,  9-8  to  9-9 

physical  end  of,  8-20 

size  of,  9-8 

spaces  at  beginning  of,  7-11 
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Record,  (Cont. ) 

terminator,  8-1,  8-19 
transmitting.  See  Input; 

Output 
zero-filled,  7-16 
RECf  \i>SIZE,  9-2,  9-4,  9-8  to 

9-9 
Reference 

array,  2-12,  2-13,  7-5 
fonotion,  used  as  arguments, 

5-11 
processor-defined  function, 

6-9 
statr.rtent  label,  3-4 
Rererence,  f uncc ion,  2-1,  6-4 
Relational  expressions^  2-14, 

'!~17  to  2-18 
Relational  operators,  2-17  to  2-18, 

B-1 
Repeat  count,  8-1 
Repeat  specifications,  group, 

8-17,  8-23 
Representation,  internal,  2-20, 

7-1 
Resuming  program  execution,  4-10 
RETURN  statement,  4-10,  6-6, 

6-8,  B-11 
Reversion,  format,  8-16,  8-21  to 

8-22 
RE/?IND  statement,  9-1,  9-10  to 
9-il,  B-11 
See  also  Output 
Rounding  numeric  data,  7-3 
Rule,  I/O  list,  8-2:? 
Rales 

conversion  for  assignment 

statements,  3-2 
for  format  statements,  summary, 

8-22  to  8-24 
statement  ordering,  1-7 
lor  subprogram  argument,©,  6-2 
Run-time  formats,  8~?0  to  fi-21 

'SAVE'  DISPOSE  value,  9-3,  9-6 

Scale  factor,  8-15  to  3-17,  8-22 

Scratch  file,  9-6 

'SCRATCH'  TYPE  value,  9-4,  9-9 

Separators 

ext^Loal  field,  8-19  co  R-20, 

8-23 
field,  8-1 
format  specification,  8-1, 

8-18  to  8-19 
slash,  7~11 
Sccuence  ntimbet:  field,  1-7 
Sr'<  ..en'iial  ^Jccess,  7-2        .^ 
Sequential  file,  7-2 
'SEQUENTIAL'  ACCESS  value,  9-?, 

9-5 
Sequential  I/O.  See  Input; 

Output 
Sequential  READ  statement,  7-7  to 

7-8,  7-14 


Sequential  WRITE  statement,  7-9 

to  7-10,  7-16 
Shared  access,  9-19 
SHARED  keyword,  9-2,  9-4,  9-9 
Sharing  storage  space,  5-9 
Short  field  termination,  8-19 
Signed  quantity,  2-4 
Simple  I/O  list,  7-5 
Size,  dummy  array,  6-3 
Size,  specifying  the  physical 

block,  9-5 
Slash  (/) ,  7-11,  8-1, 
8-19,  8-21 
consecutive,  8-19 

ecord  terminator,  8-18,  8-19 
separator,  7-11 
Source  line,  4-11 
Space 

allocation,  initial,  9-7 
character,  8-18 
sharing  storage,  5-9 
Spaces,  7-11 
appended,  2-9 
at  beginning  of  a  record, 

7-11 
leading,  8-2,  8-5 
trailing,  8-2 
Special  characters,  1-3 
Speci  f  icat ion 
attribute,  9-1 
data  type,  2-10 
determining  field  width,  8-23, 

8-24 
END»,  1-1,  7-4,  B-7 
ERR«,  1-1,  7-4,  9-6  to  9-7,  B-6 
format,  8-1. 

See  also  FORMAT 
statement 
sepaiators,  format,  8-1,  8-18  to 

8-19 
statements,  5-1 
statements  in  BLOCK  DATA 
program  units,  5-13 
Specifier,  data  type  length,  2-3, 

5-3 
Specifiers,  format,  7-1,  7-3 
Statement 

ACCEPT,  7-8,  7-10,  B-2,  B-9  to 

B~10,  B-1 3 
arithmetic  assignment,  3-1  to 

3-2 
ASSIGN,  3-3,  4-2,  4-3,  B-3 
assigned  GO  TO,  4-2  to  4-3 
BACKSPACE,  9-1,  9-11, 

B-^3 
BLOCK  DATA,  5-1,  5-13  to  5-14, 
B-3 

CALL,  4-9,  5-11,  6-7,  6-8, 

B-3 
CLOSE,  9-X,  9-10,  B-3 
COMMON,  2-9,  2-10,  5-1,  5-4  to 

5-5,  5-11,  B-4 
computed  GO  TO,  4-2 
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Statement,  (Cont . ) 
CONTINUE,  4-9,  B-4 
control,  4-1 
DATA,  2-9,  2-11,  5-1,  S-12  to 

5-13,  B-4 
DECODE,  7-4,  7-17  to 

7-18,  B-4 
DEFINE  FILE,  9-1,  9-12  to  9-13, 

B-4  to  8-5 
DIMENSION,  5-1,  5-3  to  5-4, 

B-5 
DO,  4-5  to  4-6,  B-5 
ENCODE,  7-4,  7-17  to 

7-18,  B-5 
END,  1-2,  4-11,  B-6 
ENDFILE,  9-1,  9-12,  B-6 
EQUIVALENCE,  2-9,  5-8  to  5-10, 

B-6 
EXTERNAL,  5-1,  5-11, 

B-6 
FIND,  9-1,  9-11  to  9-12,  B-6 
FORMAT,  7-3,  7-8,  8-1,  8-22  to 

8-24,  B-6 
formatted.  See  Input;  Output 
FUNCTION,  6-4,  6-6  to  6-8, 

B-7 
functions,  2-2,  6-5,  6-6 
GO  TO,  4-1  to  4-3,  B-7 
IF,  4-4,  B-7  to  B-8 
IMPLICIT,  2-9,  2-10,  5-1  to  5-2, 

5-3,  B-8 
..   logical  assignment,  3-3 
logical  IF,  4-4 
OPEN,  9-1  to  9-4,  B-8  to  B-9 
PAUSE,  4-10,  B-9 
PRINT,  7-9  to  7-10,  7-12  to 

7-13,  B-9,  B-12,  B-13 
PROGRAM,  5-1,  5-16,  B-9 
READ,  7-7  to  7-8,  7-10  to  7-11, 
7-15  to  7-16,  B-9  to  B-IC. 
See  also  READ  statement; 
Input 
RETURN,  4-10,  6-6,  6-8 

B-11 
REWIND,  9-1,  9-10,  9-11,  B-11 
STOP,  4-11,  B-11 
SUBROUTINE,  6-7  to  6-8,  B-11 
terminal,  4-9 

TYPE,  7-9  to  7-10,  7-12  to  7-13 

B-11  to  B-13 
type  declaration,  2-10,  5-1, 

5-2  to  5-3,  B-11  to  B-i2 
unconditional  GO  TO,  4-2 
unformatted.  See  Input;  Output 
VIRTUAL,  5-1  5-6  to  5-8,  B-12 
WRITE,  7-9  to  7-10,  7-12  to  7-13, 
7-14  to  7-15,  B-12,  B-13. 
See  also  WRITE  statement; 
output 
Statement  components,  FORTRAN, 

2-1,  7-3  to  7-7 
Statement  execution,  conditional, 
4-4 


Statement  field,  1-7 
Statement  function,  6-5,  6-6, 

B-2 
Statement  label,  1-5,  1-6,  4-3, 
6-8,  7-3 
a  1 l-zero,  1-6 
field,  1-6 
list,  1-2 
reference,  3-4 
Statement  number,  1-6 
Statement  ordering  rule    1- 
Statements,  1-2 
assignment,  3-1 
in  a  BLOCK  DATA  sul, rogran , 

5-13  to  5-14 
conversion  rul'  ^  for  assign- 
ment, 3-2 
establishing  arrays,  2-10 
executable,  1-2 
format,  jumm.    of  rules,  8-2^ 

to  8-24 
nonexecutable,  1-2 
spec. f ication,  5-1 
summary  of,  B-2  to  B-13 
type  declaration,  2-10,  5-1,  5-2 
to  5-3 
Stop,  tab,  1-5 
Storage 

allocating  elements,  5-3 
area,  1-byte,  2-3 
array,  2-12 
blocks,  5-4 
location,  5-8 

locations,  contiguous,  2-10 
requirements,  data  type,  2-3 
space,  sharing,  5-9 
unit,  defined,  2-3 
units,  9-9 
String,  2-7 

Structure,  program  unit,  1-7 
Subprogram,  1-2,  2-15,  6-1 
actual  arguments,  6-1  to  6-3 
arguments 

rules  governing,  6-2 
using  procedure  name  as,  5-11 
block  data,  2-2 
dummy  arguments,  6-1  to  6-3, 
6-6 

END  and,  4-11 
function,  6-6  to  6-7 
FUNCTION  in,  6-6  to  6-7 
user-written,  6-3  to  6-4 
function,  2-2,  6-9 
statement,  6-4  to  6-6 
subroutine,  2-2,  4-9, 

6-7  to  6-9. 
See  also  User-supplied 
—  subprograms;  System- 
supplied  subprograms 
virtual  array  referencing, 
5-7  to  5-8 
SUBROUTINE  statement,  6-7  to  6-8, 
B-11 
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Subcoatine   sobprotjc^m,    4-9, 

6-7  to  6-9 
Subscript  expressions,  2-11  to 

2-12,  5-4,  7-S 
Subscript  progression,  5-12,  7-5 
Subscript  order,  2-12 
Subtraction,  2-14 
Sunmary 

FORTRAN  language,  B-1 
generic  function  na'nes ,  6-14 
of  rules  for  format  statements, 

8-22  to  8-24 
of  statements,  B-2  to  B-13 
"Suspending  program  execution,  4-10 
Symbolic  name,  2-1,  2-2,  2-9  to 
2-11 
classes,  2-2 
defining  data  types  of,  5-2  to 

5-3 
o-'erridinr;  length  attributes 
of,  5-3 
System-supplied  subprograms,  6-9 
S«e  also  FORTRAN  library 
functions 

T  field  descriptor,  8-12  to  8-13 
TAB  character,  1-5  to  1-6 
Tab  as  a  value  separator,  7-ii 
Terminal  state«ient,  4-9 

of  a  DO  loop,  4-5 
Terminating  program  execution,  4-11 
Termination  of  processing,  7.11 
Termination,  short  field,  8-19 
Tmrminatoc,  record,  8-1,  8-19 

slash  (/)•  8-18  to  8-19 
Text  e<1 1  t3r  ,  1-6 
Three-dimensional  arrays,  2-10 
Trailing  spaces,  8-2 
Transfer  of  control,  6-5,  6-6,  6-t 
7-4. 
See  also  GO  TO  statements 
Transm.tting  array  elements  by 

implied  DC  lists,  7-6 
Tcansaitting  records. 

See  Input;  Output 
True,  2-7 
.TMUC,  2-7 

Truncated  constant,  2-9 
Two-dimensional  array,  2-10 
Type 

by  implication,  data*  2>10 
U4ta.  See  Data  type 
declaration,  explicit,  2-10 
specification,  data,  2-10 
Type  JttClaration  statement,  2-10« 
5-1,  5-2  to  5-3,  B-U  to  B-12 
TTM  iceyvord,  9-2,  9-4,  9-9 
TYPE  Statement,  B-U  to  B-13 
to  B-18 
formatted  sequential,  7-9  to 

7-)0 
list-directed  7>L2  to  7-1^ 
See  also  output 


Unary  operators,  2-14 
Unconditional  GO  TO  statement, 

4-2 
•UNFORMATTED'  FORM  value,  9-3, 

9-7 
Unformatted  I/O.  See  Input;  Output 
Unit 

logical ,  7-2 

main  program,  5-4,  5-5,  5-13 
UNIT  keyword,  9-2,  9-4,  9-13 
'UNKNOWN'  TVPE  value,  9-4,  9-9 
Unsigned  integer  constant,  2-4, 

8-22 
Unsubscr ipted  array,  2-12  to  2-13, 

4-9,  5-14,  7-5 
Unsubscr ipted  array  name,  2-12  to 

2-13,  4-9,  5-14,  7-5 
Uppercase  letters,  1-3 
User-written  subprograms,  6-3 
to  6-4 

Value 

complex,  8-14  to  8-15 
•-onstant,  7-11 
evaluating  magnitude  of, 

8-5 
in  form  r*r,  7-11 
integer,  2-20 
null,  7-11 
numeric,  2-14 
of  the  variable,  2-0 
Radix-50,  A-2  to  A-3 
Value  separators,  7-11 
Values 

assigning,  3-1 

assigning  to  variables  and 

array  elements,  5-12 
default  field  descriptors, 

8-17  to  8-18 
in  common  hlocks,  assigning 

initial,  5-14 
logica!,  2-14,  2-18,  2-20, 

3-3 
Variable 

control,  4-5 

in  dtswnsion  declarators,  6-3 
value  of  the,  2-9 
Variables,  2-1,  2-2,  2-9,  2-10, 

2-11 
assigning  values  to  array 

elasMints  and,  5-12 
associated,  2-9,  9-13 
integer,  2-10 
in  1^0  lists,  7-4  to  7-5 
maximum  number  of  characters 

stored  m,  8-10  

real,  2-10 
Virtual  array,  5-6  to  5-8 
references,  restrictions  on 

use  of,  5-7 
VIRTUAL  statement,  S-1,  5-6  to 

5-8.  H-12 


• 
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Width  default  value,  field,  8-18 
Word  boundary,  5-5 
WRITB  statement,  B-12,  li-13 
fornat'ed  sequential,  7-9  to 

7-10 
list-directed,  7-12  to  7-13 
unformatted  sequential,  7-14  tt 

7-15 
See  also  Output 


X  field  descriptor,  8-12 
.XOR.,  2-19 

Zero  byte,  9-8 

Zero  character,  8-18 

Zero  scale  factor,  reinstating, 

8-22 
Zero-filled  records,  7-16 
Zero-length  field  (null),  8-20, 

8-23 
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